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Avvertimento 


Se volete utilizzare correttamente i programmi di questo libro, leggete 
attentamente i seguenti consigli: 

— Per evitare qualsiasi problema al momento del lancio del program¬ 
ma con il comando RUN, schiacciate simultaneamente sui tasti STOP e 
RESTORE. Questo per assicurare che il gioco di caratteri sia quello d’o¬ 
rigine e che nessun POKE disturbi l’andamento del programma. 

— Se non ottenete gli stessi risultati degli esempi, controllate attenta¬ 
mente tutte le righe e soprattutto quelle contenenti i DATA. 

— Per guadagnare in rapidità d'esecuzione nei giochi d’abilità, tutte le 
definizioni di caratteri grafici sono poste alla fine del listing anche se 
utilizzate in precedenza. Ugualmente, potete trovare alcune istruzioni 
NEXT non seguite da una variabile (guadagno da 10 a 20%). 

— Una volta che avete inserito i programmi nel COMMODORE 64, sal¬ 
vateli sul vostro registratore. Per i programmi molto lunghi, si consiglia 
di effettuare un primo salvataggio a metà battitura. Non aspettate che 
siano interamente immessi e testati... La corrente potrebbe saltare in 
qualsiasi momento! 




Capitolo 1 

Giochi d’abilità 


2 Giochi di abilità 


Canadair 


Chi non ha mai sognato di essere l’unico padrone a bordo di un aereo? 
Eccovi l’occasione di esercitare il vostro talento di pilota. 

Sta per essere annunciato un incendio in una foresta e il Canadair può 
gettare la sua acqua sulle fiamme disegnate sullo schermo. 

Nel primo quadro il Canadair va e viene lentamente, poi progressiva¬ 
mente raddoppia la sua velocità. 

La distribuzione dell'acqua s’effettua premendo la sbarra di spazio, co¬ 
sì come per il cambio del quadro quando tutte le fiamme sono spente 
e per ricominciare il gioco. 

Attenzione: nel procedere del gioco, le fiamme sono sempre più alte ed 
è necessaria una buona riflessione strategica durante la discesa. 
Quando l’aereo urta una fiamma, si rompe e riparte da zero. 
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10 REM CRNfiDflIR 

20 REM - 

30 POKE 52,48 POKE 56,46 : CLR : QOSUB 2000 
40 F-0 : T-0 : N-l 
50 P-.5 
60 I-P 
70 PRINT'TT* 

00 REM - 

90 REM IL GIOCO 
100 FOR X-4 TO 36 
110 R-INT<RND<1>*N*4> 

120 POKE 1024+X-K 20-R ) *40,64 :POKE 55296+X4<20-fl>*40,2 
130 FOR V-21-R TO 21 

140 POKE 1824+X+V*40,65 : POKE 55296+X+V*40,2 

150 NEXT V 

160 NEXT X 

170 X-4 

180 V-0 

190 IF X>-36 THEN I—P 

200 IF XC-4 THEN I-P:POKE 1024+X+V*40,32 :V-V41 
210 IF V-3 THEN P-l 
220 IF V—21 THEN 1070 
230 X-X4I 

240 IF PEEK(10244X4VS401-64 THEN 1000 

250 IF I>0 THEN POKE1023+X+V*40,32■POKE1024+X+V*40,66 : 

POKE55296+X+V840,7 •' OOTO270 
260 POKE 10244X4V*40,67 : POKE 552964X4V*40,7:POKE 

1025+X*V*40,32 

270 IF F-l THEN 320 

280 OET IF R*-"" THEN 190 

290 F-l 

300 L-V+l 

310 C-X 

320 POKE 1024+CH.R40,32 
330 L-L41 

340 IF L>-22 THEN F-0=OOTO 190 

350 IF PEEKC1024+C-H.440>-64 THEN 380 

360 POKE 1024+C+LP40,68 : POKE 552964C-H_*40,6 

370 GOTO 190 

380 F-0 ! T-T+l 1 POKE 214,0-PRINT:PRINT TMB<36>JT 
390 FOR J-L TO L42 

400 IF J<22 THEN POKE 10244C4J*40,32 

410 NEXT J--l.-l.42 

420 IF L>-21 THEN 190 

430 POKE 10244C4<L4l>*40,64 

440 OOTO 190 

980 REM - 

990 REM PERSO 

1000 IF X>-38 THEN X-37 

1010 FOR I-V TO 20 

1020 POKE 1023+X+<1-1>*40,32 

1030 POKE 10234X41*40,66 

1040 NEXT I 

1050 OET R*:IF M*-“" THEN 1050 
1060 OOTO 40 
1070 REM VINCI 

1080 OET fl*-IF R»-“« THEN 1080 
1090 N-N41iIF N-5 THEN N-4 
1100 OOTO 60 

1900 REM - 

1990 REM INIZ. CRRHTTERI 

2000 PRINT-3 INIZ. DEI CRRRTTERI“ 

2010 PRINT-FINE IN 37 SECONDI* 

2020 POKE 56334,PEEK<56334>MND 254 
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2030 POKE 1,PEEK<1 >RND 231 

2040 POR 1-0 TO 2047 

2030 POKE 12288+1,PEEK<33248+I> 

2060 NEXT 

2078 POKE 1,PEEK<1) OR 4 

2080 POKE 36334,PEEK<36334) OR 1 

2090 FOR 1-0 TO 39 

2100 REPS R : POKE 12800+1,R 

2110 NEXT 

2120 POKE 33272,<PEEK<33272>RND240>+12 

2130 PRINT'n"!RETURN 

2140 DRTR 4,12,28,60,62,62,31,13 

2130 DRTR 13,30,30,60,60,60,30,13 

2168 DRTR 0,8,36,63,30,4,8,0 

2170 DRTR 0,4,9,63,30,8,4,0 

2180 DRTR 10,20,31,8,43,10,18,12 
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IL PROGRAMMA 

Dalla riga 30 alla 70: inizializzazione 

Dopo la definizione dei grafici nel generatore di caratteri del Commo¬ 
dore 64 posto in memoria viva all’indirizzo 12288 (sottoprogramma 
2000), si inizializzano i diversi contatori (vedere la lista delle variabili). 

Dalla riga 100 alla 180: disegno del gioco 

La variabile N dà il livello del gioco, si visualizzano a partire dal basso 
dello schermo delle fiamme più o meno alte a partire da un numero 
casuale funzione di N. 

Le variabili X e Y definiscono la posizione del Canadair. 

Dalla riga 190 alla 440: il gioco 

Se il Canadair arriva a destra dello schermo (x = 36), si cambia di dire¬ 
zione modificando il valore dell’incremento I (riga 190). 

Si effettua l'operazione inversa se arriva da sinistra (x=4 riga 200) e si 
scende di ima riga. 

Quando si arriva sulla terza riga (y=3) si cambia l’incremento di base 
per andare più in fretta (da 0,5 a 1). 

La ventunesima riga è l'ultima, si incrementa il livello del gioco N e si 
comincia una nuova partita (riga 220). 

Una volta modificata la posizione del Canadair (riga 230) si testa sullo 
schermo il carattere in cui si trova. Se questo è uguale a 64 (la fiam¬ 
ma), si va alla riga 1000 per la fine del gioco. 

Secondo il valore di I (positivo o negativo), si visualizza un Canadair 
verso sinistra o destra (righe 250 e 260). 

Il Flag F indica che sta già scendendo dell’acqua. Si va allora diretta- 
mente in riga 320. 

Nell’altro caso, si testa la tastiera per sapere se bisogna gettare del¬ 
l'acqua o no. 

Le righe dalla 290 alla 370 visualizzano sullo schermo l'acqua che 
scende. 

Quando l'acqua tocca una fiamma (testata in riga 350) ne cancella una 
parte (dalla riga 380 alla 440). 

Dalla riga 1000 alla 1100: perso o vinto 

Se il Canadair ha toccato una fiamma, cade fino alla base dello scher¬ 
mo. 

Ma se ha vinto, si incrementa il livello del gioco N prima di iniziare 
una nuova partita. 

Dalla riga 2000 alla 2180: sottoprogramma d’inizializzazio- 
ne dei caratteri grafici 

Questa parte del programma è molto importante perché è utilizzata in 
molti capitoli (cane da pastore, missionari e cannibali, parità, incen¬ 
dio). 

I PÒKE della riga 30 riservano uno spazio memoria per inserire i no- 
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stri grafici. Il CLR che segue serve per non fare considerare dal Basic 
i POKE precedenti. 

Visto che si ha sempre bisogno dell'assortimento iniziale di caratteri 
del Commodore 64 posto in memoria morta a partire da 53248, lo si 
ricopia tramite un ciclo FOR/NEXT nel suo nuovo indirizzo in memo¬ 
ria viva 12288 (righe dalla 2040 alla 2060). 

È sufficiente ora ricopiare i grafici contenuti nei DATA delle righe dal¬ 
la 2140 alla 2180 al posto dei caratteri grafici del Commodore 64. 

Il POKE della riga 2120 indica al Commodore 64 il nuovo indirizzo del 
generatore di caratteri. 
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DATA 

NOME DEL PROGRAMMA 

PAGINA 

/ 

IDENTIFICAZIONE delle VARIABILI 



VARIABILE 


VARIABILE 


VARIABILE 


SCAMBIO 


VARIABILE 


INDICE 


VARIABILE 


CONTATORE 


VARIABILE 


CONTATORE 


VARIABILE 


VARIABILE 



Carattere scelto da GET 


Numero casuale: altezza delle fiamme 


Coordinate In X dell'acqua 


-» acaua che sts 


ncremento per lo spostamento 
II’ 


C/c/o FOR/NEXT 


Coordinata In Y dell'acqua 


Livello del gioco 


Incremento di base 


Numero del punti 


Coordinate dell'aereo 
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Bruco 


Dovete costruire un bruco inghiottendo tutti gli elementi che appaiono 
sullo schermo. Questi sono di due tipi: i buoni che danno un ‘bonus’ 
(cuori) e gli altri (fiori) che ne fanno perdere uno. 

Il conteggio dei bonus si visualizza in alto a destra dello schermo: bi¬ 
sogna essere ben sicuri che questo contatore sia superiore a 0 per po¬ 
ter mangiare un ’anti-bonus’. 

Il bruco si allunga ad ogni elemento che inghiotte. Si muove da solo e 
il giocatore deve modificare la sua traiettoria con i tasti P e Q. 

Ma attenzione a non urtare il bordo del quadro o ad arrotolare il bru¬ 
co su se stesso. 

A ciascun quadro riuscito ne succede uno nuovo con elementi in nume¬ 
ro via via maggiore. Non scoraggiatevi subito al primo quadro: la de¬ 
strezza si acquista molto in fretta. 
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le REM BRUCO 

20 REM - 

30 DIR X<201>,V<201> 

40 E-0=TT-0 

80 REM - 

90 REM DISEGNO DEL GIOCO 

100 P-lJQ-l:T-0:E-e+10:IF E>200 THEN E-200 
110 DX-0ÌDV— liXO>-17!VU>-12 : B-0 
120 PRINT“3"•'POKE 33280,3'POKE 33281/3 
130 FOR 1-1 TO 37 

140 POKE 214/1: PRINT ! PRINT TRB<I>,“■"/ 

130 POKE 214/23 : PRINT : PRINT TRB<I)i“•"/ 

160 IF I>23 THEN 180 

170 POKE 214,l 'PRINTiPRINT “ ■";TRB<37>j } 

180 NEXT I 
190 FOR 1-1 TO E 

200 X-l146+INT<RND<1>»33>+INT<RND<1>*21>«40 
210 IF PEEK<X><>32 THEN 200 

220 IF I>E/2 THEN POKE X,88:P0KE 34272+X.4:OOTO 240 
230 POKE X,83=POKE 34272+X/2 

240 I 

230 POKE 214/0:PRINT:PRINT" PUNTITAB<27>J"B0NU8:" 

260 POKE 1024+X<P>+V(P>*40,81 : POKE 33296+X<P>+V<P>*40,0 
270 GET A*=IF R*-"“ THEN 260 
280 GOTO 410 

380 REM -- 

390 REM IL GIOCO 

400 GET DB : IF D#-“" THEN 480 

410 IF DV-8 THEN 430 

420 IF D*-"Gl" THEN DX-DV : OOTO 440 

430 DX—DV 

440 DV-0: GOTO 480 

430 IF D*-"P" THEN DV-DX:QOTO 470 

460 DV—DX 

470 DX-0 

480 BP-P-P-P+l:lF P-202 THEN P-l 

490 X<P>-X<RP>+DX:V<P>-Y<RP>+DV 

308 IF PEEK<1024+X<P>+Y<P>*40><>32 THEN 600 

310 POKE 1024+X<G>+Y<Q>*40,32 

320 O-O+l :IF Q-202 THEN 0-1 

330 POKE 1024+X<P>+Y<P>*40,81 ! POKE 33296+X<P>+V<P>*40,0 
340 GOTO 400 

590 REM ELEMENTO INCONTRATO 
600 R-PEEK<1024+X<P>+Y<P>*40> 

610 IF R-102 OR R-81 THEN 800 
620 IF R-83 THEN B-B+l:QOTO 630 
630 IF B-0 THEN 800 
640 B-B-l 
630 T-T+l : TT-TT+1 

660 POKE 214,0:PRINT:PRINT TRB<18>;TT;TRB<33)/B,"■ " 

670 IF T-E THEN 100 
680 OOTO 330 

780 REM - 

790 REM PERSO 

800 POKE 214,0:PRINT:PRINT TRS<10>;TT;TRB<33>JB;"« " 

810 POKE 1024+X<Q>+V<Q>*40,32 
820 0-0+1 :IF Q-202 THEN 0-1 
830 IF OOP THEN 810 
840 GET R* ! IF fi*-“" THEN 840 
830 OOTO 40 
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IL PROGRAMMA 

Dalla riga 30 alla 40: inizializzazione 

Si dimensionano due tabelle X e Y per conoscere in tutti i momenti la 
posizione degli elementi che compongono il bruco. 

Il contatore E dà il numero di elementi da eliminare, mentre TT conta 
il numero di punti di tutte le partite. 

Dalla riga 100 alla 280: disegno del gioco 

Dopo la cancellazione dello schermo e il disegno del quadro (dalla riga 
120 alla 180), si visualizzano casualmente sullo schermo i due tipi di 
elementi (cuori e fiori). 

Dalla riga 400 alla 540: il gioco 

Se viene schiacciato un tasto, si modificano gli incrementi di direzione 
DX e DY (dalla riga 400 alla 470). Dopo l’incremento P, si modifica il 
contenuto di X(P) e Y(P) con gli incrementi DX e DY (riga 490). 

Se si incontra un elemento (testato da PEEK alla riga 500), si va alla 
riga 600 per l’identificazione. 

Nel caso contrario si cancella l’ultimo elemento del bruco puntato dal¬ 
la variabile Q. Quest'ultima è incrementata tra il limite delle tabelle X 
e Y. 

Per terminare questa parte del programma si visualizza la testa del 
bruco con le coordinate puntate da P. 

Dalla riga 600 alla 680: elementi incontrati 

Se l’elemento incontrato è il bordo o il bruco (codice 102 e 81), si va 
direttamente alla riga 800 per la fine del gioco. 

Se si tratta di un bonus invece si incrementa il contatore B. 

Poiché non rimane da testare che ’anti-bonus*, si va a riga 800 per la 
fine del gioco se il contatore B è a 0. 

In caso contrario si decrementa la variabile B. 

La variabile T indica il numero di elementi già eliminati. La si con¬ 
fronta dunque a E per conoscere il momento della fine di un quadro. 
Se queste due variabili sono uguali, si va alla riga 100 per il nuovo 
quadro (nel limite dei 200 elementi). 
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Incendio 15 


Dopo aver lanciato il programma, uno scenario si disegna lentamente 
sullo schermo. 

Un cielo stellato e, in mezzo allo schermo, una casa, un’ambulanza e 
due pompieri. Questi ultimi devono recuperare tutte le persone (1, poi 
2, poi 3 fino a 10) che cadono dalla casa in fiamme e metterle nell’am¬ 
bulanza. 

Li manovrerete con i tasti: Q (verso sinistra) e P (verso destra). 
Vincerete un punto quando una delle persone raggiunge l'ambulanza; 
al contrario perderete ima delle tre vite che vi sono date all’inizio 
quando uno dei poveretti si schianta al suolo. Inoltre a 50 punti vince¬ 
rete una nuova vita. 

Da ciò può nascere una vocazione! 
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10 REM INCENDIO 

20 REM- 

30 POKE 32,48 : POKE 56,48:CLR 
40 DIM X<14>,V<14>,C<14>:00SUB 2000 
30 N-l:P-1•S"2 : T«0 

60 PRINT-3-:P0KE 33280, 2 -POKE 33281,2 
70 OOSUP 800 

80 GET R*=IF R*-"" THEN 00 

180 REM - 

190 REM IL GIOCO 
200 OOSUB 1000 

210 POKE 214, 20 : PRINT:PRINT TRB<10>;R*<P> 

220 FOR 1-1 TO N 
230 P<I>-0 
240 NEXT I 
230 FOR 1-1 TO N 
260 IF 1-1 THEN 300 

270 IF P<I-l>-3 THEN POKE 1312+INTCRND<l>f.3>*120,64 
280 OET C*:P-P+<C*-“P">*<P<3>-<C*-"0">»<P>1> 

290 IF P< 1-1X6 THEN 430 
300 IF P<I»14 THEN 430 

310 POKE 214,20:PRINT:PRINT TRB(10>;R*<P> 

320 IF P<I>-0 THEN POKE 1312,32 : POKE 1632,32=OOTO 340 

330 POKE 1024+X<P<I> >+V<P<I>>040,32 

340 P<I>-P<IX1 

330 IF P<I >013 THEN 380 

360 T-T+l:IF T/30-INT<T/30> THEN S-S+l:OOSUB 1000 
370 PRINT“W“;Tj "Il ‘ :OOTO 430 

380 POKE 1824+X<P<I> >+V<P<I> >040,C<P<I> >+63 : POKE 

33296+X<P<I> >4V<P<I> >*40,0 

390 FOR J-l TO 12-N 

400 OET C*:IF J<6 THEN P-P-<C*-"Q">*<P>1>+<C*-"P*>*<P<3> 
410 NEXT J 

420 IF V<P<I>>-20 THEN IF PEEK<1864+X<P<I>>>-32 THEN 600 
430 NEXT I 

4AQ tT m a 

430 FOR J-l TO N 

460 IF P<J><13 THEN F-l 

470 NEXT J 

480 IF F-l THEN 230 

490 N-N+l:IF N>10 THEN N-10 

380 OOTO 200 

380 REM - 

390 REM PERSO 

600 POKE 1824+X<P<I> >,32 

610 POKE 1B64+X<P<I>>,67 

620 S-S-l 

630 OOSUB 1008 

640 PCI>-16 

630 FOR J-l TO 800: NEXT J 
660 IF S>-1 THEN 430 
670 OET R*:IF R*-"" THEN 670 
680 OOTO 30 

780 REM - 

790 REM DISEGNO DEL OIOCO 
800 POKE 214,10:PRINT 
810 PRINT" ri II li" 

820 PRINT" I r. I I* 

830 PRINT" I u H-«" 

840 PRINT" I I" 

850 PRINT" I n I I" 

860 PRINT" I <-< H J " 
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870 PRINT" 
880 PRINT* 
890 PRINT" 
900 PRINT» 
910 PRINT" 
920 PRINT 


I I» 

I n I I» 
I <-« H 
I I" 

I I 


■s v" 


938 FOR 1-1 TO 10 

9*0 R-RND<1> : PCKE 1026+8*440,42-POKE 35298+8*440,0 
950 NEXT 
960 RETURN 

980 REM - 


990 REM 8T8MP8 LE VITE 
1000 PRINT“«»;TRB<24>;" 

1010 IF S<-0 THEN 1050 
1020 FOR J-l TO S 
1030 POKE 1050+J,70 
1040 NEXT J 
1050 RETURN 

1980 REM - 

1990 REM INIZ. C8R8TTERI 

2000 PRINT-n INIZ. DEI C8R8TTERI» 

2010 PRINT" FINE IN 38 SECONDI" 

2020 POKE 56334,PEEK<36334>RND 234 

2030 POKE 1,PEEK<1>RND 231 

2040 FOR 1-0 TO 2047 

2050 POKE 12288+I,PEEK<33248+0 

2060 NEXT 


2070 POKE 1,PEEK<1> OR 4 

2080 POKE 36334,PEEK<36334) OR 1 

2090 FOR 1-0 TO 93 

2100 REBD 8 POKE 12880+1,8 

2110 NEXT 

2120 POKE 33272,<PEEK<33272)8ND240>+12 
2130 FOR 1-1 TO 14 
2140 REBD X<I),V<I),Ca> 

2130 NEXT 

2160 B*<1>—"—_ ■ 

2170 B*<2>-“ —_ « 

2180 B*<3>-« —_« 

2198 PRINTVT : RETURN 

2200 DRTR 56,186,146,126,36,40,38,48,2,116,228, 


2210 D8T8 


88,29,111,6,0 

0,8,17,223,248,221,19,16,34,20,20,28, » 


2220 DRTR 
2230 D8T8 
2240 DRTR 
2250 DRTR 

2260 DRTR 
2270 DRTR 
2280 DRTR 
2290 DRTR 


127,73,93,93 

28,29,9,63,92,92,20,22,129,66,60,0,0,0,0,0 

56,184,144,232,38,42,40,232 

0,0,0,233,233,0,0,0,24,24,24,24,24,24,24,24 

127,123,113,123,127,233,60,24,233,241,241,233, 

233,233,7,3 

0,0,0,192,224,224,128,0 

9,14,1,10,17,2,11,28,3,12,17,2,13,14,1,14 
17,2,13,20,3,16,17,2,17,14,1,18,17,2,19,20 
3,20,17,2,21,14,3,22,17,2 
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IL PROGRAMMA 

Dalla riga 30 alla 80: inizializzazione 

Per conoscere la posizione delle persone e i caratteri grafici corrispon¬ 
denti, si dimensionano tre tabelle X, Y e C. Queste sono riempite dal 
sottoprogramma 2000. Questo è anche il sottoprogramma che definisce 
i caratteri grafici (vedere le spiegazioni nel programma Canadair). 
Dopo la pulitura del video, si visualizza il gioco col sottoprogramma 
800. 

Dalla riga 200 alla 500: il gioco 

Il sottoprogramma 1000 visualizza delle persone in alto sullo schermo 
per indicare al giocatore il numero di vite restanti. 

Ogni persona ha una posizione ben determinata, contenuta nella tabel¬ 
la P. Quest'ultima viene rimessa a 0 alle righe dalla 220 alla 240. 

La variabile N indica il numero delle persone da recuperare, si effet¬ 
tua il ciclo da 1 a N, il numero di volte occorrenti affinché siano tutti 
nell’ambulanza. 

Le persone appaiono al balcone unicamente se la precedente ha già co¬ 
perto tre posizioni (riga 270). E saltano unicamente quando la prece¬ 
dente è alla posizione sei (riga 290). 

Il carattere scelto da GET in riga 280 permette di determinare la posi¬ 
zione del telone (variabile P). Si utilizza per ciò una espressione logica 
per modificare il valore P (riga 280). Per permettere di muovere più ra¬ 
pidamente il telone, si ripete questa riga in 400. 

Quando una persona raggiunge la posizione 15 (l’ambulanza), si incre¬ 
menta il contatore dei punti T (riga 360). Se T è divisibile per 50, si 
aggiunge una vita (contatore S). 

Per verificare se una persona è caduta al suolo, si testa direttamente 
sullo schermo con la funzione PEEK la presenza del telone (riga 420). 
Se il carattere trovato in questo posto è 32 (un bianco), si va alla riga 
600 per la fine del gioco. 

Dalla riga 440 alla 480 si testa se tutte le persone sono nell’ambulanza. 
Se non è questo il caso (F=l), si ritorna alla riga 250. 

Tutte le persone sono arrivate in porto, si incrementa il contatore N 
per ingrandire la famiglia al prossimo giro (riga 490). 

Dalla riga 800 alla 960: disegno del gioco 

Il POKE della riga 800 indica al Basic che il prossimo PRINT deve es¬ 
sere stampato alla riga 11 dello schermo. 
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DATA NOME DEL PROGRAMMA INCENDIO PAGINA 

IDENTIFICAZIONE delle VARIABILI 

/ && / tipo ^ 

/#/ /# 


YG J OSSERVAZIONI 

A i i i 

VARIABILE 


X 




Numero casuale per la posizione 
delle stelle 

A,* , 

VARIABILE 

X 





Carattere scelto da GET 

M 1» 

TABELLA 


X 




Disegno del telone per le tre posizioni 

C, $ i 

VARIABILE 

X 





Ultimo tasto schiacciato 

C . (|> . 

TABELLA 


X 




Puntatori del caratteri grafici 
di ciascuna Dosizione delle persone 

F l I 1 

SCAMBIO 


X 




Se F=1 tutte le persone 
non sono nei! 'ambulanza 

I, , , 

INDICE 


X 




Ciclo FOR/NEXT 

J. . . 

INDICE 


X 




Ciclo FOR/NEXT 

", , , 

CONTATORE 


X 




Numero di salvataggi da effettuare 

P, . . 

VARIABILE 


X 




Posizione del telone 

P, I.) . 

TABELLA 


X 




Posizione di ciascuna persona 

S , , , 

CONTATORE 


X 




Numero dì vite 

T . . . 

CONTATORE 


X 




Numero di punti 

X, (,) , 

TABELLA 


X 




) Tutte le coordinate possibili 
j delle persone 

ll>, 

TABELLA 


X 












1 1 1 








1 1 1 








1 1 1 








1 1 1 








1 1 1 








■ ■ ■ 
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Autostrada 


Aiutate questo pazzo del volante che ha preso l’autostrada sulla corsia 
inversa a fare più chilometri possibili senza incidenti. 

Per fargli evitare tutto ciò che gli viene incontro, pilotate la sua vettu¬ 
ra con l’aiuto delle frecce basso e destra (direzione sinistra e destra). 
Se nonostante tutto si verifica un incidente, il programma fornisce al¬ 
lora il numero dei chilometri percorsi senza incidenti. 

Premendo un tasto della tastiera ritroverete il conducente che ha più 
che mai bisogno di voi. 
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10 REM RUT08TRRDR 

20 REM - 

30 W-CHR*<18>:F*-CHR*<146> 

40 V*«D*+".“+F*+"*“ 

30 W*-D*+“*“+F*+“." 

60 K-20 
80 PRINT"!!" 

90 INPUT "LIVELLO TRA 3 E 1";N 
100 IF N<1 OR N>3 THEN 80 
110 K-0 

780 REM - 

790 REM IL GIOCO 
800 PRINT"3" 

900 T-INTtRNIKl )*T4)+14 

920 OET R*:IF R*«“" THEN 1000 

930 IF RSC<A*>-17 AND X>14 THEN X-X-l 

940 IF RSC<A*>-29 RND X<27 THEN X-X+l 

1000 POKE 214,0‘PRINT 

1010 PRINT TRB<X>JV* 

1020 PRINT TRB<X>;V* 

1030 IF PEEK< 1144+XJ032 OR PEEK<1143+X>032 THEN 2000 
1040 FOR 1-1 TO 30*N:NEXT 
1030 POKE 214,21:PRINT 
1060 PRINT 

1070 PRINT TRB<13>i"t"JTRB<T>JM»JTRB<29>;"«" 

1080 PRINT TRB<T>;U»:PRINT:PRINT 
1090 K-K+l 
1100 OOTO 900 

1980 REM - 

1990 REM RISULTATI 
2000 PR1NT“.T : PRINT 
2010 PRINT K;"CHILOMETRI" 

2020 FOR 1-1 TO 1000 : NEXT I 
2038 OET R$:IF R*-"" THEN 2030 
2040 OOTO 80 





IL PROGRAMMA 

Dalla riga 30 alla 110: inizializzazione 


Autostrada 25 


Si pongono nelle variabili V$ e W$ la rappresentazione gra¬ 
fica delle vetture. 

La variabile X dà la posizione di partenza della vettura del 
giocatore e K il numero di chilometri percorsi. 

La variabile N scelta alla tastiera determina la rapidità del 
gioco. 

Dalla riga 800 alla 1100: il gioco 

La riga 920 testa il senso di spostamento dato dal tasto schiacciato al¬ 
la tastiera. Se è effettuato imo spostamento, si modifica il valore della 
variabile X prima di stampare sullo schermo il disegno della vettura 
(righe dalla 1000 alla 1020). 

Se dei caratteri diversi da 32 (carattere bianco) sono di fronte alla vet¬ 
tura del giocatore (testata da PEEK), si arriva direttamente alla fine 
del gioco (riga 2000). 

Il numero casuale contenuto nella variabile T indica la posizione della 
vettura proveniente in senso inverso. Questa è semplicemente visualiz¬ 
zata dalla funzione PRINT; ciò ha per effetto di far salire lo schermo 
di due righe verso l'alto. 

Dalla riga 2000 alla 2040: fine della partita 

Dei caratteri diversi da 32 si trovano davanti alla vettura del giocato¬ 
re, dopo che è stato schiacciato un tasto si stampa il numero di chilo¬ 
metri percorsi prima di iniziare una nuova partita. 
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DATA NOME DEL PROGRAMMA .. . PAGINA 

AUTOSTRADA / 

IDENTIFICAZIONE delle VARIABILI 

—J 7 /origine/ 

/ jt'à' / tipo A/ot/ /lung./ osservazioni 

11L _ M7 _ 


VARIABILE 


1 




Senso di spostamento scelto alla 
tastiera 


COSTANTE 


8 




Inizio d'inversione video 


COSTANTE 


B 




Fine d'inversione video 


CONTATORE 


8 




Numero di chilometri effettuati 

mi 

VARIABILE 


1 




Livello di rapidità 

mi 

VARIABILE 








COSTANTE 


B 






COSTANTE 


8 




Rappresentazione grafica della 

mi 



1 




' macchina In senso inverso 


VARIABILE 






Posizione della macchina del giocatore 




1 





mi 








mi 








mi 








mi 








mi 
























mi 








mi 








mi 








mi 
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Cane da pastore 


Questo gioco ha per spunto le famose competizioni dei cani da pastore 
in Scozia. 

Il vincitore è colui che riconduce il più presto possibile tutta una man¬ 
dria di pecore nel suo recinto. 

Il cane da pastore può condurre da cinque a dieci pecore secondo le 
partite. Voi dovete spostarlo con le 4 frecce e convalidare il comando 
schiacciando RETURN. 

A questo punto tutte le pecore sono in movimento ma solo quelle che 
sono nei pressi del recinto vi entrano definitivamente. Le altre si spar¬ 
pagliano sempre di più nei pascoli e il povero cane non può che ripor¬ 
tarle di nuovo verso il recinto. 

Naturalmente bisogna utilizzare meno colpi possibili. Il numero dei 
tentativi viene visualizzato quando tutte le pecore sono nel recinto. 
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^ - 

10 REM CANE DA PASTORE 

20 REM - 

30 POKE 32,48'POKE 36,40'CLRGOSirB 3000 
40 PRINT "17* : POKE 33280,3-POKE 33281.3 
30 F-0:E-0 
60 DIM X<11>,9<11> 

100 REM - 

190 REM DISEGNO DEL GIOCO 
200 FOR 1-3 TO 37 

210 IF I/3-INT<I/3> THEN A#-“I■'OOTO 230 
220 MS-"-* 

230 POKE 214.0'PRINT:PRINT TRB<I>;AS 
240 POKE 214.23:PRINT : PRINT TAB<I>;A*J 
230 IF I>24 THEN 300 

260 IF 1/4—INT< I/4> THEN A*-"I":GOTO 280 
270 RS—" I" 

280 POKE 214,I-2.'PRINT:PRINT TAB<3>;A* 

290 POKE 214.1-2 : PRINTSPRINT TABC37>jAS 
300 NEXT I 

390 REM STAMPA PASTORE.CANE.PECORE 
400 X-INT<RND<1>*13>44 
410 9-INT<RND<l>*20>42 

420 POKE 214.V'PRINT:PRINT TAB<X>;-PRINT TRB<X>;"-" 

430 V-INT<RND<1>*18)418 
440 M—1NT<RND<1>*13>41 

460 POKE 214.W:PRINT:PRINT TRB<V>J-I-1" 

470 FOR 1-1 TO 4:PRINT TAB<V+3> i" I■:NEXT 

480 PRINT TAB<V>;*I-I" 

490 W-W+l 

500 N-34INT<RND<1>*6> 

310 FOR 1-1 TO N+l 

320 X<I>-INT<RND(1>*14>44 

330 9<I>-INT<RND<1>*22>4l 

340 IF PEEK<1024+xa>4V<I>*40)032 THEN 320 

330 IF K-N THEN POKE 1024+X<I>4V<I>*40.63 :POKE 33296+X<I> 

♦V< I>*40.1= OOTO 370 

360 X-X<I>:V-V<I>:POKE 10244X49*40,64 :POKE 332964X49*40,2 
370 NEXT I 

3A8 REM - 

590 REM SPOSTA CANE E PECORE 

680 OET DS : IF DS- H " THEN 600 

610 IF DS-CHRS<13> THEN E-E4l:QOTO 700 

620 POKE 1024+X+V*40,32 

630 IF D*-CHRS<137) AND PEEK<1024+X-149*40>-32 THEN X-X-l 
648 IF D*-CHR*'29> AND PEEK<10244X4149*40>-32 THEN X-X+l 
630 IF DS-CHRSC143> AND PEEKC1024+X-KV-l>*40>-32 THEN V-V-l 
660 IF DS-CHRS<17) AND PEEK< 10244X4<y*-l >*40>-32 THEN V-V41 
670 POKE 10244X49*40,64:POKE 332964X49*40,2 
680 GOTO 600 
700 FOR J-l TO 3 
718 F—0 

720 FOR 1-1 TO N 

730 POKE 10244XCI>49<I>*40,32 

740 IF X<I><V OR X<I»944 THEN 800 

730 IF 9< 1 )<I4 OR 9<I»W44 THEN 800 

760 F-F+l 

770 IF PEEK<10244XtI>4149<I>*40>O32 THEN 910 

780 X<I>-X<1>41 

798 GOTO 910 

800 AX—X <I>:R9—9 < I ) 


0 
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810 IF V<V<I> THEN V<I)-V<D+1 

820 IF V>V<I> THEN V<I)-V(I>-1 

830 IF V<I>-RV RND V<I)-2 THEN V<I)-V«>+1 

840 IF V<I)-HV RND Y<I>-23 THEN V<I)-V<I>-1 

850 IF X<I)-RX RND X<I>-4 THEN X<I)-X<I>+1=0OTO 890 

860 IF X<I)-RX RND X<I>-36 THEN X<I)-X<I>-1 00T0 890 

878 IF X<X<I> THEN X<I)-X<I>+1 

880 IF X>X<I> THEN X<I)-XU)-1 

890 IF PEEK<1024+X<I)+V<I>*40>*32 THEH 910 

900 X<I)-RX:V<I)-RV 

910 POKE 1024+X<I>+V<I>*40,63 ! POKE 55296+X<I)+V<I>040/1 
920 HEXT I 

930 IF F-N THEN 1000 
940 NEXT J 
960 GOTO 600 

990 REM FINE 

1000 POKE 214,22 SPRINT SPRINT TRB<14>;"NB DI 8CELTR"iE 
1010 OET RS : IF R*-"" THEN 1010 
1030 RUN 40 

4980 REM - 

4990 REM INTZ. CRRRTTERI 

9000 PRINTTl INIZ. DEI CRRRTTERI" 

9010 PR1NT" FINE IN 37 SECONDI" 

5020 POKE 56334,PEEK<56334)AND 254 

5830 POKE 1, PEEK< 1 >RND 251 

5040 FOR 1-0 TO 2047 

5050 POKE 12288+I,PEEK<53248+0 

5060 NEXT 

5070 POKE 1,PEEK<1> OR 4 

5080 POKE 56334,PEEKt56334) OR 1 

5090 FOR 1-0 TO 39 

5100 RERD fl : POKE 12800+1,R 

5110 NEXT 

5120 POKE 53272,<PEEK<53272>RND240>+12 

5130 PRINT"3":RETURN 

5200 DflTR 8,0,4,6,124,188,164,18 

5210 DRTR 0,0,2,67,62,62,62,34 

5220 DRTR 24,60,126,255,255,126,60,24 

5230 DRTR 56,124,56,56,16,124,254,187 

5240 DflTR 185,249,57,41,41,41,41,239 
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IL PROGRAMMA 

Dalla riga 30 alla 60: inizlalizzazione 

Dopo la definizione dei grafici nel generatore di caratteri del Commo¬ 
dore 64 posto in memoria viva all'indirizzo 12288 (sottoprogramma 
5000, vedere la spiegazione nel programma Canadair), si dimensionano 
due tabelle X e Y per sapere in ogni momento la posizione delle peco¬ 
re. 

Il contatore F dà il numero delle pecore già nell'ovile, mentre E conta 
il numero dei tentativi di ogni partita. 

Dalla riga 200 alla 300: disegno del gioco 

Questa parte del programma visualizza sullo schermo il recinto del pa¬ 
scolo dove si trovano le pecore con i caratteri grafici definiti nell’ini- 
zializzazione. 

Dalla riga 400 alla 570: visualizzazione pastore, cane e pe¬ 
core 

Questi tre elementi sono visualizzati sullo schermo casualmente. 

Le coordinate del cane sono contenute nelle variabili X e Y, e quelle 
delle pecore nelle tabelle X( ) e Y( ). È la variabile N che determina il 
numero delle pecore (tra 5 e 10). 

L'ovile è spostato a ciascuna partita. Le sue coordinate sono conserva¬ 
te nelle variabili V e W. 

Dalla riga 600 alla 680: spostamento del cane 

Il tasto premuto è posto nella variabile D$, si modificano di conse¬ 
guenza le variabili X e Y se non si oppone nessun elemento sullo 
schermo (testato da PEEK). 

Se questo tasto corrisponde a "RETURN 1 ’ della tastiera (codice 13), si 
va a 700 per lo spostamento delle pecore. 

Dalla riga 700 alla 960: spostamento delle pecore 

Ciascuna pecora è spostata a turno cinque volte di seguito nella dire¬ 
zione che l'allontana di più dal cane. 

Se essa si trova nell’ovile (coordinate V e W), si incrementa il contato¬ 
re F. La pecora allora non può più uscire. 

Se il contatore F è = N, si va direttamente alla riga 1000 per la fine 
del gioco. 

Nel caso contrario, si ritorna alla riga 600 per un nuovo tentativo. 



Cane da pastore 33 


DATA 

NOME DEL PROGRAMMA 

CANE DA PASTORE 

PAGINA 

/ 

IDENTIFICAZIONE delle VARIABILI 



TIPO 



LUNG., 


OSSERVAZIONI 


Al 9 l 

VARIABILE 


IL 




Caranere da stampare (chiusura) 

A,* , 

VARIABILE 


X 




Originarie coordinate di una 
pecora prima dello spostamento 

Ai H i 

VARIABILE 


X 




M I 

VARIABILE 

X 





Ultimo tasto schiacciato 

E , I . 

CONTATORE 


X 




Numero di tentativi 

F. . , 

CONTATORE 


X 




Numero di pecore neU'ovlle 

I. . . 

INDICE 


X 




Gelo FOR/NEXT 

J, . , 

INDICE 


X 




Gelo FOR/NEXT 

i i 

CONTATORE 


X 




Numero di pecore 

V i . . 

VARIABILE 


X 




| Coordinate dell'ovile 

| | 

VARIABILE 


X 




X, . , 

VARIABILE 


X 




Coordinate del cane 

y, . . 

VARIABILE 


X 




x, |)i 

TABELLA 


X 




| Coordinate delle pecore 

Vi 0. 

TABELLA 


X 












1 i_ 1 








■ » i 








i i I 







• 

l 1 1 
















» « » 









Riproduzione vietata C Editai 



34 Giochi di riflessione 


Missionari e cannibali 


Non vi fate influenzare dall'aria angelica dei sei personaggi che vi 
stanno per apparire sullo schermo. In effetti i tre cannibali non aspet¬ 
tano altro che il primo momento di distrazione dei tre missionari per 
farli precipitare nella loro marmitta. 

Potete farli passare sull’altra riva badando che i missionari non siano 
mai in minoranza su una delle due sponde? 

Avete a disposizione una barca, che non può trasportare più di due 
passeggeri per la traversata. A ciascun viaggio il calcolatore vi doman¬ 
da il numero di cannibali o di missionari da caricare sulla barca 
(schiacciare 1 per i cannibali, 2 per i missionari e 0 se non c’è il secon¬ 
do passeggero). 

La barca depositerà i suoi viaggiatori sull’altra riva e dovrà rispostar¬ 
ne almeno uno. 

Attenzione: quando su una delle due rive i cannibali sono più numerosi 
dei missionari questi diventano automaticamente loro prigionieri nella 
marmitta. In questo caso schiacciate uno qualsiai dei tasti e i vostri 
personaggi resusciteranno per ima nuova prova. 

A voi trovare la tattica migliore. 






Missionari e cannibali 35 


G“D 

_i 

Inizializzazione 
del caratteri 
grafici 

1 " 


Inizializzazione 
delle tabelle 
C. P. B e M 



Visualizzare 
Il gioco 



Visualizzare 
Il gioco 

—T- 


Spostare C & M 
nella tabella M< ) 
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» 




10 REM MISSIONARI E CANNIBALI 

20 REM - 

30 POKE 32,48-POKE 36,48'CLR'G03UB 3000 
40 C<1>-96:C<2>-108'C<3>-96'C<4>-108 
30 P<1> — l'P<2>-3 
60 P<3>-23'P<4>-31 
70 8-1'B(1)-14'B(2)-?0 
00 H<l>-3 'M<2>-3'M<3>-0'M<4>-0 
100 PRINT"D" POKE 214,16'PRINT' PRINT" 

--- ; TAB<26> ; "-• 

110 PRINT TAB<6>;" Hf";THlK3Z>;“ le* 

120 PRINT TAB<6>J"^ ";TAB<32>i"^ " 

280 REM - 

290 REM IL OIOCO 

300 POKE 214,14 ! PRINT:PRINT TAB<B<B>>i" 

310 IF B-l THEN POKE 214,13SPRINT:PRINT TAB<»<B>-1>;"4 

" : DOTO 330 

320 POKE 214,13iPRINT:PRINT TABCB<B>>i" I" 

330 PRINT TAB<B<B>>;"4 I II 
340 QOSUB 900 

330 IF MO>+M<4>-6 THEN 600 

360 IF <M<1»MC2> AND MC2>00> OR <M<3»H<4> AND M<4>O0> 

THEN 700 

390 FOR 1-1 TO 2 

400 POKE 214,22:PRINT'PRINT TA8<3> ; "PASSE0GER0 - ^-3TRS<I>^■" 

CRN.-1/MI8.-2 ?" 

410 OET PS'IF PS—" THEN 410 
415 P-VAL<PS>'IF P<0 OR P>2 THEN 410 
420 IF 1-1 AND P-0 THEN 410 
430 IF P-0 THEN 470 

440 IF BOI THEN 443 

441 IF M<P»0 THEN M<P>-M<P>-1 :OOTO 430 

442 OOTO 410 

443 IF M<B+P)>0 THEN M<B+P>-H<B4P>-1'OOTO 430 
446 OOTO 410 

430 POKE 214,14: PRINT'PRINT TMB<B<B>-H-2*I>;CHR*<C<P>>; 

CHRS<C<P>*1> 

460 PRINT TAB<B<B>-l+2*I>JCHRt<C<P>+2>;CHR*<C<P>*3> 

470 NEXT I 

480 POKE 214,22'PRINT:PRINT" 

H»e OOSUB 999 

300 POKE 214,14 ! PRINT'PRINT TMB<B<B>>i" 

310 PRINT TAB<B<B>-1>;" " 

320 PRINT TAB(B<B>)j" " 

330 B-B+l'IF B-3 THEN B-l 

340 IF B-2 THEN M<3>-3-M<l>:H<4>-3-M<2>=OOTO 360 
330 M<l>-3-M<3>'M<2>-3-M<4> 

368 OOTO 380 

380 REM - 

590 REM VINTO 

600 POKE 214,22'PRINT'PRINT" SIETE SCAMPATI AL PENTOLONE" 

610 OET AS'IF AS—" THEN 610 
620 OOTO 70 

688 REM - 

690 REM PERSO 

700 POKE 214,22'PRINT'PRINT» siete FINITI NEL PENTOLONI 

710 OET AS'IF AS—" THEN 710 
720 OOTO 70 

880 REM - 

890 REM STRMPA IL OIOCO 
900 FOR 1-1 TO 4 
910 FOR J-l TO 3 


SIETE FINITI NEL PENTOLONE" 
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920 0-C<I):P0KE 214,10 SPRINT 
930 FOT K-10 TO 13 

940 IF J<-M<I> THEN PRINT TAB<P<I)+J*2);CHR*<0)JCHR*<0+1> 

: 00T0 960 

930 PRINT TAB<P<I)+J*2>;" " 

960 0-0+2=NEXT K 
970 NEXT J=NEXT I 
980 RETURN 

4900 REM - 

4990 REM INIZ. CARATTERI 

3000 PRINT VI INIZ. DEJ CARATTERI" 

3010 PRINT" FINE IN 40 SECONDI" 

3020 POKE 36334,PEEK <56334> AND 234 

3030 POKE 1,PEEK<1>AND 231 

3040 FOT 1-0 TO 2047 

3050 POKE 12288+1,PEEK<33248+1) 

5060 NEXT 

5070 POKE 1,PEEK<1> OR 4 

5080 POKE 36334,PEEK<36334) OR 1 

3090 FOR 1-0 TO 263 

3100 READ A : POKE 12800+1,A 

3110 NEXT 

3120 POKE 33272,<PEEK<33272)AND240>+12 
3130 PRINT"H" ; RETURN 

3140 DATA 3,13,31,207,127,207,31,60,0,192,224,204,248,204, 

224,240 

3130 DATA 96,64,92,67,72,79,32,24,24,8,232,8,72,200,16,96 
3160 DATA 4,4,4,8,24,16,32,32,128,128,128,64,96,32,16,16 
3170 DATA 72,72,88,132,168,72,16,16,72,72,104,100,84,72, 

32,32 

3180 DATA 31,31,31,31,31,20,20,20,224,224,224,224,224,160. 

160/160 

3190 DATA 20,20,20,20,20,20,120,248,160,160,160,160,160, 

160,120,124 

3200 DATA 13,48,64,192,233,170,128,136,240,12,2,3,233, 

171,1,37 

3210 DATA 129,129,143,136,68,163,144,72,129,129,137,17,34, 

197,9,18 

3220 DATA 36,20,32,79,128,128,128,128,36,48,44,242,1,1,1,1 
3230 DATA 140.148,148,148,148,148,143,129,49,41,41,41,41, 

41,241,129 

3248 DATA 128,128,233,32,32,32,32,32,1,1,233,4,4,4,4,4 
3230 DATA 32,32,63.12,12,12,124,124,4,4,232,48,48,48,62,62 
3260 DATA 233,128,128,64,32,16,8,7,233,0,8,0,0,0,0,233 
3270 DATA 233,1,1,2,4,0,16,224,16,16,36,20,20,18,18,17 
5200 DATA 2,2,7,10,10,18,18,34 

3290 DATA 9,4,9,63,224,160,96,48,32,144,32,240,20,20,24,48 
3300 DATA 47,32,32,42,191,83,42,83,208,16,16,176,244,, 168, 

80,168 

8980 REM - 

0990 REM THEN 
9008 OPEN 12,4 

9010 FOT J-0 TO 39=PRINT#12.CHR8<8)J 
yt)Z9 FOR 1-1063 TO 2023 STEP 40 
9030 A-PEEK<I-J) 

9040 FOT K-8 TO 7 

9030 PRINT#12,CHRS<PEEK<122B8+K+A»8)+128>; 

9060 NEXT K■NEXT I 

9070 PRINT#12,CHR*<13)CHR*<8> 

9080 NEXT J 
9090 RETURN 
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IL PROGRAMMA 

Dalla riga 30 alla 120: inizializzazione 

Dopo la definizione dei grafici nel generatore di caratteri del Commo¬ 
dore 64 posto nella memoria viva aH’indirizzo 12288 (sottoprogramma 
5000, vedere spiegazioni nel programma Canadair), si definiscono le ta¬ 
belle C, P, B e M per conoscere in tutti i momenti la composizione del 
gioco su ciascuna riva (M), la loro posizione sullo schermo (P), i carat¬ 
teri grafici che li compongono (C) e la posizione sullo schermo della 
barca (B). 

Dalla riga 300 alla 560: il gioco 

La variabile B dà il numero della riva (B = 1 sinistra, B = 2 destra), si 
presenta la barca in B(B). In seguito i personaggi sono visualizzati dai 
sottoprogrammi in 900 in funzione di M( ) e nella posizione P( ). 

A partire dalla riga 350 si verifica se sono tutti sulla riva di destra. Se 
è così si va alla riga 600 per un messaggio di felicitazioni. 

La riga 360 testa se il numero dei cannibali non è superiore a quello 
dei missionari. In questo caso si va alla riga 700. 

Il caricamento dei passeggeri viene effettuato da un ciclo FOR/NEXT. 
Si verìfica che ci sia almeno un passeggero (riga 420) e che esistano 
sulla riva i passeggeri che si vogliono imbarcare (dalla riga 441 alla 
446). 

Fatte queste verifiche vengono visualizzate sulla barca le loro teste 
(dalla riga 450 alla 460). 

Per finire questa parte del programma si visualizzano di nuovo i per¬ 
sonaggi (sottoprogramma 900), si cancella la barca e si riassesta la ta¬ 
bella M secondo il numero della riva. 

Dalla riga 900 alla 980: visualizzazione del gioco 

In funzione delle tabelle M, P e C, vengono visualizzati sullo schermo i 
sei personaggi sulle due rive. La variabile G punta il primo carattere 
grafico. 
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DATA NOME DEL PROGRAMMA PAGINA 

MISSIONARI E CANNIBALI / 

IDENTIFICAZIONE delle VARIABILI 

~~1 7 /ORIGINE/ T~ 

/ / TIPO /z/s/é/ Xung / osservazioni 

/«7 m / _z_ 

A i S i 

VARIABILE 

X 





Carattere scelto da GET 

8 .11 

SCAMBIO 


X 




Numero di riva: B=1, riva sinistra 

B = 2, riva destra 

1 1 1 







8,(1 , 

TABELLA 


X 




Posizione di ciascuna riva sullo schermo 

Ci (i) i 

TABELLA 


X 




Caratteri grafici corrispondenti 
alla tabella M( ) 

G, , , 

CONTATORE 


X 




Puntatori del caratteri grafici 

I. . , 

INDICE 


X 




Ciclo FOR/NEXT 

J, ,, 

INDICE 


X 




Ciclo FOR/NEXT 

K , 11 

INDICE 


X 




Ciclo FOR/NEXT 

M, t|>, 

TABELLA 


X 




Posizione dei missionari e dei 
cannibali su ciascuna riva 

p. . , 

VARIABILE 


X 




Scelta del passeggero (numerica) 

P, V, 

TABELLA 


X 




Posizione di ciascun passeggero 
sullo schermo 

n . , 

VARIABILE 

X 





Scelta del passeggero 

1 1 1 








1 1 1 
















1 1 1 
















1 1 1 
























« » « 




— 
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Parità 


Dopo che avete raccolto il numero dei giocatori (fino a 5) e i loro nomi, 
sedici paia di figure diverse (carte, telefono, monete...) si disegnano, 
con le facce coperte, sul vostro schermo. 

Lo schema si presenta su quattro righe di otto colonne e lo scopo del 
gioco è di ricostruire le sedici coppie mescolate. 

Ognuno al suo turno volta due carte nel tentativo di ricostruire una 
coppia. 

Il Commodore 64 domanda le coordinate delle carte sotto forma di nu¬ 
mero di righe poi di numero di colonne. 

Esso rifiuta le carte già messe in coppia e quelle con le coordinate sba¬ 
gliate. 

Ogni volta che uno dei giocatori trova una coppia, le carte che la costi¬ 
tuiscono vengono tolte dallo schermo. 

Ciascuna coppia fa ottenere un punto e il vincitore può rigiocare. 
Quando tutta la grata è vuota, vengono visualizzati i risultati di tutti i 
giocatori. 

Questo gioco all'apparenza semplice richiede grande pazienza e atten¬ 
zione. 
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Parità 


10 REM PARITÀ' 

30 POKE 32,40 : POKE 36»48!CLR:OOSUB 5000 
40 PRINT "!1“ : POKE 53200,5:POKE 53201,5 
50 INPUT"NUM DI OIOCATORI";JN 

60 IF JNK2 OR JNXJ THEN PRINT"TRA 2 E 5 I":OOTO 50 
?0 FOR 1-1 TO JN 

00 PRINT : PRINT“NOME DEL GIOCATORE";li=INPUT N*<I> 

90 N*<I)-LEFT*<N*<I>+" ",1S> 

100 NEKT I 

110 A*Cl)-"+tC+":A*<2>-"J £":A*<3>-fl*<2):A*<4>-»+ZZt" 

100 REM - 

190 REM INZIRLIZZRZIONE 
200 K-64 

210 FOR 1-1 TO 4 
220 FOR J-l TO 4 
230 C<I,J)-K ! C<I+4,J)H< 

240 K-K+4 
250 NEXT J 
260 NEXT I 

290 PRINT"!) MISCHIO LE CARTE'" 

300 FOR 1-1 TO 120 
310 L1-INT<RND<1>08>+1 
320 L2-INT<RND<1>08>+1 
330 C1-INT<RND<1>04>+1 
340 C2-INT<RND<1>04>+1 

330 R-C<Ll,Cl>:C<Ll,Cl>-C<L2.C2>:C<L2,C2>-fl 
360 PRINT"»" JTAB<20)J120-1i"« " 

370 NEXT I 

300 REM - 

390 REM STRMPA LE CARTE 
400 PRINT"!?" 

410 FOR 1-1 TO 0SPRINT TRB(1 + 104)iI i:NEXT 
420 FOR J-0 TO 3 

430 POKE 214,2+J04'PRINT:PRINT ■ -;j+i 

440 FOR 1-0 TO 7 
450 FOR K-l TO 4 

460 POKE 214, J04+K : PRINT : PRINT TRBC3+I04);R»<K> 

470 NEXT K,I,J 

390 REM IL OIOCO 

600 NJ-NJ+1:1F NJ>JN THEN NJ-1 

610 POKE 214,21:PRINT:PRINT N*<NJ>+" <"iP<NJ>;" PT8>" 

620 FOR 1-1 TO 2 

630 POKE 214,22 ! PRINT:PRINT"CARTR"JIJ“:LINEA< >,COLONNA< >" 
640 OET A*!V<I>-VAL<A*>!IF VCIXl OR V<I»4 THEN 640 
630 POKE 1939,V<I>+40:POKE 56231,2, 

660 OET A*:X<I>-VAL<A*>!IF X<IX1 ÒR X<I»8 THEN 660 

670 POKE 1970, X<I>+48- POKE 36242,2 

680 IF PEEK<1023+XO)84+V<I)0160)-32 THEN 630 

690 IF 1-2 AND X<l)-X<2> AND V<l)-Y<2> THEN 630 

700 C-C<X<I),V<I>> 

730 POKE 986+X<I>04+V<I>*160,C : POKE 987+X<I>*4+V<I>*160,C+2 
740 POKE 1026+X<I)04+V<I>*160,C+l’POKE 1027+X<I)*4+V 

<1)0160,0+3 

730 NEXT I 

760 FOR 1-1 TO 700 !NEXT 

770 IF C<X<1),V<1))-C<X<2),V<2)> THEN 830 
780 FOR 1-1 TO 2 

790 POKE 214,V<I>04-2 : PRINT!PRINT TAB<2+X<I>*4>i■ " 

800 PRINT TAB<2+X<I>*4)i" " 

810 NEXT I 

820 OOTO 600 

830 P<NJ)-P<NJ>+1 

640 FOR 1-1 TO 2 

830 POKE 214,<V<I>-1)04+1 !PRINT 
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060 FOR J-l TO 4:PRINT TAB<1+X<I>*4>;" 

870 NEXT J, I 

080 TP-TP+1 

890 IF TP<16 THEN 610 

900 REM - 

990 REM RISULTATI 

1008 PRiif-rj risultati «nomar 

1010 PRINT "NOME" ; TAB<23> ! "POINT8«IP 

1020 FOR I»1 TO JN 

1030 PRINT N*(I);TAB<27);P<I>:PRINT 

1040 P<I>-0 

1030 NEXT I 

1060 GET MS : IF RS-" " THEN 1060 
1090 TP-0 ■ BOTO 200 

4980 REM - 

4990 REM INIZ. CARATTERI 

3000 PRINT-3 INIZ. DEI CARATTERI* 

5010 PRINT" FINE IN 45 SECONDI" 

5020 POKE 36334.PEEK<56334)AND 254 

5038 POKE 1,PEEK<1>AND 251 

3040 FOR 1-0 TO 2047 

3030 POKE 12288+1,PEEK<33248+I> 

5060 NEXT 

3070 POKE 1.PEEK<1> OR 4 

3080 POKE 36334,PEEK<56334) OR 1 

3090 FOR 1-0 TO 311 

5100 READ A'POKE 12800+1,A'NEXT 

5110 FOR 1-0 TO 47 : READ A^POKE 12496+I,A : NEXT 

3128 POKE 33272,<PEEK<33272>AND240>+12 

3130 PRINT'D* : RETURN 

3200 DATA 7,3,7,1,13,31,31,99,111,7,7,3,3,3,3,13 

3210 DATA 240,176,240,192,248,232,230,227,227,224,96,96, 

96,96,96,120 

3228 DATA 0,0,7,4,4,31,16,19,19,16,16,19,18,18,16,31 
3238 DATA 0,192,224,32,34,230,10,202,282,10,18,206,72, 

72,8,248 

5240 DATA 0,3,13,16,32,32,64,97,63,33,32,16,13,3,0,0 
3230 DATA 0,128,96,16,36,72,132,12,4,8,8,16,96,128,0,8 
5260 DATA 0,3,12,16,33,33,69,63,63,63,33,33,16,12.3,0 
3270 DATA 0,192,48,8,4,116,66,98,66,66,4,4,8,48,192,0 
3288 DATA 8,63,196,139,228,9,18,36.40,40,36,34,33,32,63,24 
3290 DATA 0,232,33,249,39,144,72,36,20,20,100,100,148, 

4,232,24 

3300 DATA 127,64,84,92,72,64,64,66,67,63,64,84,92,72,64,127 
3310 DATA 232,4,84,116,36,4,4,132,132,4;4,84,116,36,4,232 
3320 DATA 253,68,68,233,17,17,233,68,68,233,17,17,233,68, 

68,233 

3330 DATR 233,68,68,233,17,17,233,68,68,233,17,17,233,68, 

68,233 

3340 DATR 63,32,36,32,32,36,32,63,32,32,32,32,36,32,63,8 
3338 DATA 252,4,36,4,4,36,4,232.4,36,4,4,4,4,232,0 
3360 DATA 3.6,10,18.34,74,130,146,131,164,137,144,164, 

192,233,0 

3370 DATA 233,1,73,1,73,1,73,1,233,2,36,8.144,32,192,0 
5380 DATA 1,64,200,48,23,141,93,35,83,139,11,3,3,3,3,7 
3390 DATA 32,162,68,136,32,227,128,241,202,164,146,168, 

128,128,128,192 

3400 DATA 0,0,12,30,63,127,127,63,30.12,0,8,8,8,0,0 
3410 DATA 7,26,100,132,8,136,144,16,24,68,126,233,233, 

126,60,24 

3420 DATA 0,0,3,1,1,1,1,1,7,3,7,31,11,23,44,120 
3430 DATR 128,128,224,64,192,64,192,64,240,96,240,232, 

104,244,26,13 

3440 DATR 63,96,192,133,140,132,248,132,24,48,96,192,233, 

1,3,3 
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-@ 

.7490 DATA 232,6.3,223,49,23,31,23,24, 12,6/3/233, 120, 192,192 
3460 DATA 0,1,19.31/233/127,63/31>31/31,31,63,63,127,31,0 
3470 DATA 192,224,232,233/234/234/254/232/232.232,234,234# 

233,232/120,0 

3400 DATA 0,0/0/0,0/7/31,127/127/233,233/253/233/233/127,62 
3490 DATA 0,7,24,44,206,199,131,129,120,192,192,192, 12S, 

120 , 0,0 

3300 DATA 1,7,13/63/233/00/76,69/63/63/73,60/33/17,0,7 
3310 DATA 0/192,224/240/234/20/102/70/6/6/30/70/130,21/ 

39,197 

3320 DATA 0,0/0/0/0/0/0/733,233/0/0/0/0/0/0/0 

5330 DATA 1,1/1/1/1/1.1/1.120/120/120/120,120/120/120/120 

5340 DATA 1,2/4/0,16/32/64/120/120/64/32/16,0/4/2/1 
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IL PROGRAMMA 

Dalla riga 30 alla 370: inizializzazione 

Dopo la definizione dei grafici nel generatore di caratteri del Commo¬ 
dore 64 posto in memoria viva (indirizzo 12288) la rappresentazione 
grafica delle carte da gioco (sottoprogramma 5000, vedere spiegazioni 
nel programma Canadair) e nella tabella A$ il disegno delle carte, si 
prendono dalla tastiera il numero e il nome dei giocatori. 

Il numero dei caratteri grafici di ciascuna carta è posto nella tabella 
C(.) si mischia quest'ultima utilizzando i quattro numeri casuali Cl, 
C2, LI e L2. 

Dalla riga 400 alla 470: visualizzazione del gioco 

Si visualizza il contorno delle trentadue carte con i caratteri contenuti 
nella tabella A$. 

Dalla riga 600 alla 820: il gioco 

Dopo averle prese nella variabile A$, il numero delle righe e delle co¬ 
lonne sono messe rispettivamente nelle tabelle Y() e X(). 

Nel caso che queste due carte siano identiche, si salta direttamente al¬ 
la riga 830; altrimenti si rigirano con un piccolo ciclo d'attesa. 

Dalla riga 830 alla 890: caso di carte identiche 

Si incrementa il totale dei punti del giocatore (tabella P), poi si cancel¬ 
lano dallo schermo le carte disegnate. 

Se il totale delle carte cancellate è inferiore a 18, si continua normal¬ 
mente il gioco con lo stesso giocatore (riga 610 al posto della 600). 

Dalla riga 1000 alla 1090: risultati 

Si visualizzano i nomi e il numero di punti di ciascun giocatore (tabel¬ 
le N$ e P). 
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DATA 

NOME DEL PROGRAMMA _ 

PARITÀ 

PAGINA 

/ 

IDENTIFICAZIONE delle VARIABILI 



VARIABILE 

■Bini 

VARIABILE 

1IIM 

TABELLA 

IBI» 

VARIABILE 

lem 

TABELLA 

ibm 

VARIABILE 

ibm 

VARIABILE 

IBM 

INDICE 

IBM 

INDICE 

IBM 

CONTATORE 

BIM 

VARIABILE 

IBM 

VARIABILE 

■BUM 

VARIABILE 

IBM 

TABELLA 

HM 

CONTATORE 

IBM 

TABELLA 

■BUM 

CONTATORE 

■BUM 

TABELLA 

IBM 

TABELLA 

IBI 


Utilizzata per mischiare le carte 


Carattere scelto alla tastiera 


Disegno delle carte 


mmmmm 


Tabella delle carte 


E 


Numeri casuali per il mescolamento 
delle carte 


Ciclo FOR/NEXT 


Ciclo FOR/NEXT 


Numero di giocatori 


caratteri gra 


E 


Numero casuale per II 
mischiaggio delle carte 


Nome dei giocatori 


Numero del giocatore 


Totale dei punti di ogni giocatore 


Totale dei punti 


Coordinate delle carte scelte 
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Campo di carote 


È un giorno d’inverno molto freddo e padron coniglio (simbolizzato dà 
un fiore) non vede che una carota (simbolizzata da un cuore) in fondo 
al campo. Dovrà cercare di dissotterrarla, pur sapendo che i contadini 
hanno riempito il campo di trappole. 

Fortunatamente porta con sé il suo fedele detector elettronico... 

Il detector, posto in alto a sinistra dello schermo, segnala il numero di 
trappole che circondano il coniglio, contando anche tutte quelle che 
compongono il bordo del campo. 

Voi non dovete che guidare logicamente il vostro coniglio utilizzando i 
quattro tasti di spostamento. 

Che voi abbiate o no evitato le trappole, scoprirete alla fine di ciascu¬ 
na partita la loro pianta precisa con il numero dei vostri tentativi a 
volte impressionante. 

Se il vostro coniglio, sempre affamato, vuole partire alla ricerca di 
un'altra carota, premete un tasto qualsiasi. 
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10 REM CAMPO DI CAROTE 

20 REA - --- — 

90 PRINT":r :POKE 33288,3 : POKE 33281,3 
40 X<l)-i:X<2>—1 
30 X<3)-40:X<4>—40 
100 POR 1-1 TO 100 

110 X-1186+INT<RNDC1>*33>+INT<RND<1>019)040 
120 IF PEEK<X>032 THEN 110 
130 POKE X,86 : P0KE 34272+X,3 
140 NEXT I 

180 REM - 

190 REM STAMPA IL GIOCO 
200 FOR 1-1 TO 37 

210 POKE 214, SPRINT SPRINT TAB<I>;"X"; 

220 POKE 214,23 SPRINT SPRINT TAXI); "X“J 
230 IF I>23 THEN 230 

240 POKE 214,1 SPRINT SPRINT ■ X";TAX37>; "X*; 

230 NEXT I 

260 POKE 1164,03 POKE 33436,2 
270 X-1964:POKE X,88sPOKE 36236,6 
280 E-0 

380 REM - 

390 REM NUM DI TRAPPOLE 
400 P-0 

410 FOR 1-1 TO 4 

420 IF PEEK<X+X<I>>-86 THEN P-P+I 
430 NEXT I 

440 POKE 214,0SPRINTSPRINT * TRAPPOLE :"iP;TAX26)i 

"PROVEs";E 

400 REM - 

490 REM SPOSTAMENTI 

300 OET MSs IF A*-” THEN 300 

310 IF A*-CHR*<29> THEN 1-1sQOTO 600 

320 IF AS-CHRSU37) THEN I-2S00T0 600 

330 IF A8-CHR0<17> THEN 1-3:0OTO 600 

340 IF AS«CHRS<143> THEN I-4SOOTO 600 

330 OOTO 300 

600 POKE X,160sPOKE 34272+X,0 
610 X-X+X<I> 

620 IF PEEK<X>«86 THEN 700 
630 IF PEEK<X>-83 THEN 730 
640 POKE X,88sPOKE 54272+Xr6 
630 E-E+l 
660 OOTO 400 

688 REM - 

690 REM FINE DELLA PARTITA 
700 FOR 1-0 TO 16 
710 POKE 33281,1 
720 FOR J-l TO 30: NEXT J 
730 NEXT I 

740 POKE 33281,3:OOTO 790 
730 FOR 1-0 TO 16 
760 POKE 33280,1 
770 FOR J-l TO 50 : NEXT J 
780 NEXT I 

790 FOR 1-1024 TO 2023 

880 IF PEEK<I>-86 THEN POKE 1+34272,2 

810 NEXT I 

820 OET AS:IF A*-“" THEN 820 
830 OOTO 30 
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IL PROGRAMMA 

Dalla riga 30 alla 140: inizializzazione 

Si pone nella tabella X( ) il numero dei caratteri di spostamento corri¬ 
spondente alle quattro direzioni. 

Poi si visualizzano sullo schermo delle trappole in posizioni casua¬ 
li (100 trappole in totale). Sono scritte in rosso su sfondo rosso. Esse 
esistono ma sono invisibili sullo schermo. 

Dalla riga 200 alla 280: visualizzazione del gioco 

Questa parte del programma visualizza delle trappole al bordo dello 
schermo (questa volta visibile) come il coniglio e la carota. 

La variabile X dà la posizione esatta del coniglio. 

Dalla riga 400 alla 440: numero di trappole 

Per conoscere il numero di trappole che circondano il coniglio, è suffi¬ 
ciente testare direttamente sullo schermo, con l’aiuto della tabella X, 
la presenza dei caratteri 86. 

Dalla riga 500 alla 660: spostamento 

I caratteri presi dalla tastiera sono contenuti nella variabile A$, e si 
modifica, secondo il suo valore, la variabile X. 

Prima di visualizzare il coniglio, si mette un quadrato nero sulla sua 
vecchia posizione. 

La riga 620 testa se il coniglio non è su una trappola mentre la riga 
630 testa l'eventuale presenza della carota. 

Dalla riga 700 alla 830: fine della partita 

Alla fine del gioco si visualizzano sullo schermo tutte le trappole fino 
allora invisibili, testando tutte le posizioni dello schermo con dei 
PEEKS. 
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Non dovete farvi prendere dal panico se volete salvare questo impru¬ 
dente esploratore caduto nel Rio delle Amazzoni in mezzo ai piranha. 
L'unica possibilità è che questi feroci pesci si divorino tra loro quando 
si trovano vicini. 

Spostate l’esploratore nelle quattro direzioni con i tasti I, J, K, M (ri¬ 
spettivamente alto, sinistra, destra, basso): troverete sicuramente una 
tattica per obbligare i piranha a incontrarsi e divorarsi fino all’ultimo 
(l’esploratore diventa blu quando vincete). Se a questo punto siete 
pronti per un'altra traversata del Rio delle Amazzoni premete uno 
qualsiasi dei tasti. 




54 Giochi di riflessione 
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V 

20 REM --r- 

30 DIM P<20> 

40 T<1>-1:T<2>-40:T<3>—DT<4>—40 
50 C<D-75 : C<2>-77 ! C<3>-74:C<4>-73 

60 printtt 

80 REM - 

90 REM DISEGNO DEL OIOCO 

100 P-INT<RND<1>011>410 

110 FOR 1-1 TO P 

120 P<I>-10244INT<RND<1>*888>41 

130 POKE P<I>,65 

140 POKE P<I>454272,2 

150 NEXT I 

160 A-10244INT <RND< 1>*880>41 

170 POKE A. 83 

180 POKE 0454272,6 

388 REM - 

390 REM SPOST. PIRANHA 
400 FOR 1-1 TO P 
410 1F P<D-0 THEN 500 
420 POKE P<I>,32 
430 FOR J-l TO 4 

440 IF PEEK<P<D4T<J >>“83 THEN 900 

450 IF PEEK<P<D4T<JJ >-65 THEN 480 

460 NEXT J 

470 GOTO 510 

400 P<I>-0:0-041 

490 IF O-P-l THEN 1000 

500 OOTO 700 

510 IF INT<<A-1024)/40»INT<<P<I>-1024V4O> AND P<I>440 

<2023 THEN 570 

520 IF INT<<A-1024J/40XINT<<P<I>-1024 V40) AND P<I>-40 

>1024 THEN 580 

530 IF A—1>-P<I> AND P<I>41<2023 THEN 590 

540 P<I>-P<D-l'OOTO 700 

570 P<I>—P<I>440 :OOTO 700 

580 P<I>-P<IJ-40•'OOTO 700 

590 P<I>-P<I>*1 : OOTO 700 

680 REM - 

690 REM SPOST. GIOCATORE 
700 OET C*-IF C*-"” THEN 800 
710 C-ASC<C*> 

720 FOR J-l TO 4 
730 IF C«C<J> THEN 750 
740 NEXT J•OOTO 800 

750 IF A4T<J><1024 OR A4T<J»2023 THEN 800 
760 POKE A,32 
770 A-A4T<J> 

780 POKE A< 83 

790 POKE 0454272,6 

800 POKE P<D,65 

810 POKE P<I>454272,2 

830 NEXT I 

840 OOTO 400 

880 REM - 

890 REM PERSO 
900 POKE A,65 

910 OET A*:IF A*-"" THEN 910 
920 CLR : OOTO 30 

980 REM - 

990 REM VINCI 

1000 POKE 0454272,5 

1010 OET R*:IF A*-"* THEN 1010 

1020 CLR:OOTO 30 



10 REM PIRANHAS 
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IL PROGRAMMA 

Dalla riga 30 alla 180: inizializzazione 

Si pongono nella tabella T( ) le direzioni degli spostamenti dei piranha 
e nella tabella C( ) i valori ASCII dei tasti ai spostamento. 

Il numero dei piranha è determinato dalla variabile P (numero casua¬ 
le). Si riempie la tabella P( ) con le coordinate dei piranha, A dà quelle 
dell'esploratore. 

Dalla riga 400 alla 590: il gioco 

Ciascun piranha è spostato sullo schermo nel senso che lo avvicina di 
più all'esploratore, salvo se trova un suo simile in una casella adiacen¬ 
te. In questo caso, s'affretta ad ingoiarlo (riga 450). 

Dalla riga 700 alla 840: spostamento dell’esploratore 

Si sposta l’esploratore secondo il tasto schiacciato (scelto da GET). 

Dalla riga 900 alla 1020: fine della partita 

Secondo l'andamento della partita, il Commodore 64 stampa un pira¬ 
nha blu (perso!) o un esploratore verde (vinto!). 



IDENTIFICAZIONE delle VARIABILI 



VARIABILE 


TABELLA 


CONTATORE 


INDICE 


INDICE 


CONTATORE 


TABELLA 


TABELLA 



Carattere scelto alla tastiera 


Valore numerico di C$ 


spostamen 


ratore 


Valori ASCII dei 4 tasti di spostamento 


Numero del piranha eliminati 


Ciclo FOR/NEXT 
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Awari 


Awari è un combattimento strategico tra voi e il calcolatore. 

Il Commodore 64 vi chiede di introdurre il vostro nome, poi disegna il 
gioco sullo schermo in questo modo: 

Esempio 1 



LL_ 

3 3 3 3 3 


0 

PARTITA 1 

0 



3 3 3 3 3 | 



Nel corso della partita, il calcolatore visualizzerà il vostro nome, poi 
un messaggio, così: 


NOME 

IO GIOCO IN 
o: 

NOME 

QUAL È IL TUO SPOSTAMENTO? 

Il calcolatore gioca nelle caselle alte e il giocatore in quelle basse. 
Alla partenza ci sono tre pedine in ciascuna casella. Il gioco consiste 
nello spostare le tre pedine di una casella, una alla volta, nelle caselle 
successive nel senso inverso delle lancette dell'orologio. 

Esempio 2 

Spostamento 



3 

3 3 3 

3 

3 


0 


PARTITA 

1 


0 

+1 


3 

3 3 3 

3 

3 

rr 



-3 

fi 

+1 

J 
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Esempio 3 
Risultato 


Converrà considerare le caselle secondo i numeri seguenti: 


3 3 3 3 3 3 


PARTITA I 

3-5-3-S- 4-4 


Esempio 4 


totale del o 
calcolatore — 


direzione del gioco 

6_ A. _f_ A. A. A. 

3 3 3 3 3 3 


i —r 


totale 
10 del 
giocatore 


1 2 3 4 5 6 

direzione del gioco 


Cosi, nell’esempio 2, la casella mossa è la 4: 

NOME 

QUAL È IL TUO SPOSTAMENTO? 

Schiacciare il 4. 

Se l’ultima pedina spostata si ferma in ima casella TOTALE, chi ha 
giocato per ultimo deve rigiocare. Quando l’ultima pedina si ferma pri¬ 
ma o dopo questa casella, tocca invece all’avversario. Nell'esempio 2, 
sta al giocatore (e non al calcolatore) di rigiocare. 

La partita finisce quando tutte le caselle di uno dei due giocatori sono 
vuote. 

Il calcolatore segnala allora chi ha vinto. Il numero di partite vinte re¬ 
sta da ora visualizzato in permanenza sullo schermo. 

Poi il gioco iniziale si ricompone, invitandovi a fare una nuova partita. 




AWARI 


1 1 

2 

Il 14 15 lù 

J_ 

5 1 


PARTITA 2 

1 12 

-T0— 

rw 

TI T3 T~2 TU 

T 

FRANCESCO: 

QUALE E' IL 

TUO SPOSTAMENTO? 


C64: 1 
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Awarl 61 


A- 

10 REM RUBRI 

20 REM - 

30 DIM B(14),K(14>,G(14),H<14> 

40 PRINTTy : POKE 33280,2•• POKE 33281,2 
50 INPUT"IL TUO NOME "JP4 
60 PR*1 ! Tl-0 ; T2—0 
70 E-INT<RND<1>♦.3) 

80 PRINT"n”JTRB<17>i "BURRI" 

180 REM - 

190 REM 8TRMPR IL GIOCO 
200 FOR 1-1 TO 13 : B<I>-3 : NEXT I 
210 B<7)-0:B<14>-0 
220 FOR 1-1 TO 38 

238 POKF 1424+1,99-POKE 1504+1,100=POKE 33696+1, 

l-POKE 33776+1,1 


240 

230 

260 

270 

280 

290 

300 

310 

320 

330 

340 

330 

390 

400 

410 

420 

430 

440 

430 

460 

470 

480 

490 

300 

310 

320 

330 

340 

350 

360 

370 

680 

690 

700 

710 

720 

730 

740 

730 

760 

770 

780 

790 

880 

890 


NEXT I 

POKE 214,18-PRINT:pRINT P4 

POKE 214, 10:PRINTSPRINT " ";B<14)i"H ",TRB<3>, I , 

TRBC33>J“ l";B<7> 

POKE 214,10:PRINT:PRINT TRB<16>J"PARTITA:";Pfl 
POKE 214,8:PRINT:FOR J-13 TO 8 STEP-1 


PRINT TRB<3+<13-J>*3>;"l"iB<J>i 
NEXT J 

PRINT TRB<35>;"I" 

POKE 214,12:PRINT:F0R J-l TO 6 
PRINT TRB<5+U-1>*3>;“ l"iB<J>; 

NEXT J 

PRINT TRB<33>i H l" 

REM- 

REM IL GIOCO 
B-0 

FOR 1-1 TO 6 
IF B<I>O0 THEN B-l 
NEXT I :IF B-0 THEN 1700 

D W KÌ 

FOR 1-8 TO 13 
IF B<I><>0 THEN B-l 
NEXT I : IF B-0 THEN 1700 
IF E-l THEN 900 

POKE 214,19:PRINT:PRINT“OURL £' IL TUO SPOSTRMENTO 7 
GET A4 : IF A*-"" THEN 300 
A«VAL<R*>:IF R<1 OR R>6 THEN 300 
IF B<R>-0 THEN 300 

POKE 214,19:PRINT:PRINT TRB<28>Jfi:008UB 740 

IF E-l RND A-14 THEN 260 

IF fl-7 THEN 260 

IF E-l THEN E-0 : GOTO 260 

E-l: GOTO 260 

REM- 

REM SPOSTAMENTO DELLE PEDINE 

FOR Z-l TO 14 
B<Z>-G<Z> 

NEXT Z 

P-B<R> : B<fl>-0 

FOR 1-1 TO P 

R-R+l ! IF R-13 THEN R-l 

B<R>-B<R>+1 

NEXT I 

RETURN 

REM- 

REM MOSSA DEL 64 



m l 


JSk— 
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A- 

900 POKE 214,19=PRINT:PRINT"OIOCO IN 
910 FOR J-l TO 14 
920 G<J>-B<J> 

930 NEXT J 

940 IF B<13>-1 THEN 1300 
950 IF B<13»-3 THEN 1300 
960 IF B<12»-3 THEN 1310 
970 IF B<ll»-4 THEN 1320 
980 FOR JT-13 TO 8 8TEP-1 
990 IF G<J>—0 THEN 1070 
1000 OOSUB 700 
1010 IF A-14 THEN 1330 
1020 H<J>-A 
1030 FOR U-9 TO 13 
1040 Z-U+B<U> 

1030 IF Z-14 THEN K<J>-K<J>41 
1060 NEXT U 
1070 NEXT JT 
1080 Z-0 

1090 IF 0<12»-3 THEN 1310 
1100 IF Q<8>-1 THEN 1340 
1110 IF 0<9>-l THEN 1330 
1120 FOR J-8 TO 13 
1130 U—K<J> 

1140 IF U>2 THEN OOSUB 1360 
1130 NEXT J 
1160 IF Z>0 THEN 1280 
1170 Z-8 

1180 FOR J-8 TO 12 
1190 U-H<J> 

1200 IF U>Z RND U>0 THEN OOSUB 1360 

1210 NEXT J 

1220 IF R>7 THEN 1280 

1230 Z-7 

1240 FOR J-8 TO 13 
1230 U-H<J> 

1260 IF UCZ RND U>0 THEN OOSUB 1360 

1270 NEXT J 

1280 FOR U-8 TO 13 

1290 K<U>-0 

1380 H<U>-0 

1310 NEXT U 

1320 C-fl-7 

1330 POKE 214,19 : PRINT:PRINT TRB<20>;C 
1340 FOR U-l TO 200=NEXT U 
1330 J-R:OOSUB 700 
1360 OOTO 340 

1480 REM - 

1490 REM MOSSA SCELTR DHL 64 

1300 R-13 : 00T0 1280 

1310 R-12 : OOTO 1280 

1320 R-ll : OOTO 1280 

1530 A—9 : OOTO 1280 

1340 fl-8 ; OOTO 1280 

1530 fl-J ! OOTO 1280 

1360 Z—U : R—J 

1570 RFTURN 

1690 REM RISULTATI 

1700 IF B<14»B<7> THEN 1800 

1710 IF BC14><B<7> THEN 1730 

1720 POKE 214,19:PRINT:PRINT"SIAMO PARI 


m 



1730 E«INT<RNIX1>*.3> 

1740 GOTO 1030 

1730 POKE 214,19:PRXKT:PRINT-HRI VINTO 

1760 Tl-Tl+1 

1770 E-l 

1780 GOTO 1830 

1800 POKE 214,19:PRINT:pRINT"H0 VINTO 
1810 T2-T2+1 
1820 E-0 
1830 P8-PR+1 

1860 POKE 214<23 : PRINT:PRINT"C64:";T2JTRB<20>/P9»" 1 "ITIJ 

1870 OET 8*:IF 8*-"“ THEN 1070 

1888 POKE 214,10=PRINT:PRINT TRB<36)J* 

1890 GOTO 200 
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IL PROGRAMMA 

Dalla riga 30 alla 350: inizializzazione 

Dopo aver definito le tabelle, il programma prende il nome del giocato¬ 
re e visualizza sullo schermo il disegno del gioco. 

La variabile E determina il turno: se ha valore 0 tocca al giocatore, se 
ha valore 1 tocca al Commodore 64. Nel primo giro questa variabile 
contiene un numero casuale, ma dalla seconda partita è sempre il per¬ 
dente che comincia. 

Dalla riga 400 alla 480: test di fine partita 

Il gioco si deve fermare quando uno dei giocatori non ha più pedine 
nelle sue caselle. In questa riga, si verifica a ciascun turno questa 
eventualità. 

Se è cosi si passa alla riga 1700. 

Nella riga 480 il programma si divide in due, secondo il valore di E. 

Dalla riga 490 alla 530: E = 0, turno del giocatore 

Appena caricato il movimento si verifica la sua validità. In caso di una 
risposta errata, la domanda è posta nuovamente fino ad ottenere la ri¬ 
sposta corretta. 

Chiamando il sottoprogramma della riga 740 si spostano le pedine del¬ 
le caselle concernenti. 

Dalla riga 900 alla 1570: E = 1, turno del Commodore 64 

Per determinare le sue scelte, il Commodore 64 utilizza tre tabelle per 
comparare le soluzioni possibili e le più vantaggiose. 

La soluzione trovata è posta in A come per il giocatore: questo permet¬ 
te di utilizzare il sottoprogramma di spostamento delle pedine dalla ri¬ 
ga 700 alla 790. 

Dalla riga 700 alla 790: spostamento delle pedine 

Si spostano le pedine dalla casella designata con A e si distribuiscono 
nelle caselle seguenti, considerando che la casella 15 (inesistente) cor¬ 
risponde alla casella 1. 

Dalla riga 1700 alla 1890: risultati 

Nel momento in cui uno dei giocatori non ha più pedine, si visualizza 
sullo schermo il numero di partite vinte per ciascuno e un messaggio 
di complimenti. 
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DATA NOME DEL PROGRAMMA PAGINA 

AWARI / 

IDENTIFICAZIONE delle VARIABILI 


ORIGINE / / 

Aiti 

VARIABILE 


X 




Vostro movimento 

v,, 

VARIABILE 

X 





Vostro movimento 

B l . 1 

SCAMBIO 


X 




Se B = 0 fine della partita 

8 IM. 

TABELLA 


X 




Numero delle pedine In ciascuna casella 

c . i i 

VARIABILE 


X 




Numero della casella giocata dal 64 

E. , , 

SCAMBIO 


X 




Se E = Ò turno aei giocatore 

se E=1 turno del 64 - 

G. (.) , 

TABELLA 


X 




Salvataggio della tabella Bf ) 

«, v ; 

TABELLA 


X 




Numero delle pedine in ciascuna 
casella dopo lo spostamento 

i,.. 

INDICE 


X 




Ciclo FORJNEXT 

•Ji i i 

INDICE 


X 




Ciclo FORJNEXT 

K, (.) , 

TABELLA 


X 




Coefficiente di ciascuna casella 

P, , , 

CONTATORE 


X 




Numero delle pedine da spostare 

P,* . 

VARIABILE 

X 





Vostro nome 

P.A, , 

CONTATORE 


X 




Numero della partita 

T, 1, , 

CONTATORE 


X 




Numero di partite vinte dal giocatore 

T, 2, , 

CONTATORE 


X 




Numero di partite vinte dal 64 

Ui i i 

VARIABILE 


X 




Coefficiente della casella studiata 

Z, , , 

INDICE 


X 




Ciclo FORJNEXT 

1 1 1 








1 1 1 

























Rlproduzlona votata C Etttai 
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Caccia al tesoro 


Non avete fortuna nel gioco? 

Allora ecco una caccia al tesoro dove la destrezza e non il puro rischio 
vi sarà utile per vincere. 

Questa caccia al tesoro si gioca in due. Una tabella di numeri 18 per 
10 si disegna davanti a voi. £ sufficiente spostare i due cacciatori, con 
le quattro frecce della tastiera secondo l’itinerario che porterà più 
punti (verticalmente e orizzontalmente). 

Attenzione: non distruggete tutta una zona senza prevedere un possibi¬ 
le ritorno indietro fruttuoso... 

La partita finisce quando uno dei due giocatori ha ottenuto almeno 
250 punti e solo allora si visualizzano i risultati. Per ripartire, basta 
schiacciare qualsiasi tasto. 

E ora, buona caccia! 







eneeifl 

8L 

TESORO 





2 

3 

7 

A 

8 

9 

1 

6 

8 

3 

3 

4 

4 

3 

8 

3 

9 

3 

3 

• 

2 

3 

4 

t 

1 

1 

6 

e 

7 

7 

3 

8 

3 

2 

8 

9 

3 

3 

4 

3 

9 

4 

4 

3 

8 

2 

2 

9 

2 

9 

6 

1 

3 

2 

3 

6 

6 

6 

7 

6 

7 

6 

4 

0 

1 

8 

9 

1 

4 

4 

9 

3 

7 

3 

8 

7 

1 

1 

2 

3 

• 

4 

2 

1 

4 

6 

3 

2 

2 

4 

1 

9 

8 

6 

9 

6 

5 

7 

0 

2 

2 

1 

6 

C 

3 

8 

3 

3 

3 

7 

3 

e 

3 

4 

7 

2 

• 

4 

4 

6 

8 

3 

1 

4 

6 

3 

4 

9 

7 

3 

6 

6 

3 

3 

3 

8 

2 

9 

7 

4 

6 

8 

9 

3 

3 

9 

e 

9 

9 

9 

6 

4 

4 

3 

1 

4 

3 

9 

8 

7 

9 

1 


E 

* 

CHE 

01 PCP 











•- 

10 



M* 

4 
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f Inizio ^ 


Visualizzare 
uria tabella 
di 10x18 con dei 
numeri casuali 


Visualizzare 
i simboli 
dei giocatori 


1 = 1 


I Inserire gli 7 
I spostamenti J 


_! 

l _ 

Verifica 

dello spostamento 

J 

L 
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10 REM CACCIA AL TESORO 

20 REM - 

30 X<1>-9'X<2>-10 
40 Y<l>-6'V<2>-5 
50 J<l>-83'J<2>-65 
60 C<1>“2'C<2>“5 

110 REM - 

120 REM DISEGNO DEL GIOCO 

130 PRINT"3 CACCIA AL TESORO"'PRINT 

140 FOR 1-1 TO 10'PRINT" "i 

150 FOR J-l TO 18 

160 PRINT STRS<INT<RND< 1>«9)+1>; 

170 NEXT J 

180 PRINT'PRINT'NEXT I :PRINT" E' CHI GIOCA"'PRINT"#»"; 


TAB<9>;"•»"» 

190 REM - 

200 REM IL GIOCO 
210 FOR 1-1 TO 2 

220 POKE 1024+X<O*2+Y<I>*80,J<n 

230 POKE 35296+X<I>S2+V<I>*80,C<n 

240 NEXT I 

250 FOR I-l TO 2 

260 POKE 1910,J<I> 

280 POKE 56182, C<0 

290 RX-X<I>'RV-V<0 

300 GET A*:IF MS«"" THEN 300 

310 A-A8C<AS> 

320 IF A-17 AND V<IX10 THEN V<I>"V<I>+1'GOTO 400 
330 IF A-29 AND X<I><18 THEN X<I>-X<0+1'GOTO 400 
340 IF A" 145 AND Y<I»1 THEN V<I>-Y< 0-1'GOTO 400 
350 IF A" 157 AND X<I»1 THEN X<0"X<0-1'GOTO 400 
370 GOTO 300 

400 POKE 1024+AXS2+AVS80,48 
410 POKE 55296+AXS2+AVS80,6 

420 T<I>-T<I>+<PEEK<1024+X<I>#2+Y<I>#80>-48> 

430 POKE 1024+X<D#2+V<I>#88, J<I> 

440 POKE 55296+X<I>02+Y<1>080,C<I) 

450 POKE 214,22'PRINT 

460 PRINT TAB<<I-1>#9+2>;T<I>; 

470 IF T<I>>“250 THEN 600 
480 NEXT I 
490 GOTO 250 

580 REM- 

590 REM RISULTATI 

600 PRINT\T RISULTATI "'PRINT'PRINT'PRINT'PRINT 
610 PRINT"#-";T<0 
620 PRINT'PRINT'PRINT 
630 PRINT"*"";T<2> 

640 GET RS'IF AS-"" THEN 640 
650 CLR'OOTO 30 




IL PROGRAMMA 

Dalla riga 30 alla 180: inizializzazione 
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Le tabelle X( ) e Y( ) forniscono le coordinate di partenza dei 2 giocato¬ 
ri, mentre J( ) e C( ) forniscono il codice dei caratteri grafici e i colori. 
Si visualizza sullo schermo una tabella di numeri a caso 10x18. 

Dalla riga 210 alla 490: il gioco 

Si verificano i valori dati dal carattere scelto alla tastiera per spostare 
i giocatori. 

Dopo lo spostamento delle figure, si aggiunge al totale dei punti del 

g ocatore il numero sul quale si sposta. Si recupera questo valore ef- 
ttuando un PEEK direttamente nella memoria dello schermo. Questo 
totale è stampato in basso sullo schermo. 

Si verifica a ciascun turno, se il giocatore non supera i 250 punti ri¬ 
chiesti per vincere (tabella T( )). 

Dalla riga 600 alla 650: fine della partita 

Uno dei giocatori ha superato 250 punti, si visualizzano sullo schermo 
i risultati della partita. 
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NOME DEL PROGRAMMA .. ______ 

CACCIA AL TESORO 


IDENTIFICAZIONE delle VARIABILI 


PAGINA 

/ 


ii ™ 



Wfl 


XUNO/ 

OSSERVAZIONI 


VARIABILE 


Valore numerico di A$ 


VARIABILE 


Spostamento 


VARIABILE 


VARIABILE 


TABELLA 


INDICE 


INDICE 


TABELLA 


TABELLA 


Coordinate prima dello spostamento 


Colore del giocatori 


Odo FOR/NEXT 


Odo FOR/NEXT 


Carattere grafico di ogni giocatore 


Totale del punti di ciascun giocatore 


TABELLA 


TABELLA 


Coordinate del giocatori 


Rlproduzlona ««Mata e Editai 
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Torri di Hanoi 


Di fronte a queste torri di Hanoi, dovete dare prova di strategia, di ri¬ 
flessione e di molta pazienza. Si tratta di fare passare sulla torre di 
destra e nello stesso ordine un certo numero di dischi impilati sulla 
torre di sinistra, aiutandovi con la torre in centro. 

Potete scegliere il numero del disco da spostare tra il tre e il sette. 

Il Commodore 64 vi domanda, in basso sullo schermo, la torre da cui 
si vuol partire, poi la torre di arrivo: immettere 1, 2 o 3 numeri di tor¬ 
ri da sinistra a destra. 

Esso rifiuta degli ordini impossibili da eseguire: non si può mettere un 
disco su un altro meno largo. Diversamente, un disco può andare dalla 
torre 1 alla 3, poi ritornare alla 2. 

Esso visualizza, durante tutto il gioco, il numero dei tentativi. 

Un piccolo consiglio: è meglio, per i vostri nervi, se cominciate con tre 
dischi. 
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x-1 

te REM TORRI Di HANOI 

20 REM- 

30 DIM T<7,3> 

Aa pp t UT " "V 

50 INPUT"NUM DI DISCHI";NB 

60 IF NB<3 OR NB>7 TMEN 40 

80 FOR 1-1 TO 7 

90 IF K-NB THEN T<I,l>-8-I 

100 NEXT I 

110 PRINTTI” 

120 Q08UB 2000 

130 POKE 214»18 : PRTNT 

140 INPUT"TORRE DI PARTENZA : ;TD 

150 IF TIKl OR TD>3 THEN 130 

160 NT-TD ! GOSUB 1000 

170 IF Q-0 THEN 200 

180 GOTO 130 

200 DD-I 

250 POKE 214,20:PRINT 

260 INPUT"TORRE D'ARRIVO:"ITA 

270 IF TA<1 OR TA>3 OR TA-TD THEN 130 

200 NT-TA:QOSUB 1000:IF 0-1 THEN 300 

290 IF T<DD,TD»T<I,TA> THEN 130 

300 DA-I+1 

350 T<DA,TA>-T<DD,TD> 

360 T<DD,TD>-0 

370 C-C+l 

380 FOR 1-1 TO NB 

390 IF T<I,3>-0 THEN 120 

400 NEXT I 

410 OOSUB 2000 

420 PRINT“SEI RIUSCITO.." 

430 OET a*:IF AS-"“ THEN 430 
440 CLR 
450 GOTO 40 

980 REM - 

990 REM NUM DISCHI > 

1000 FOR 1-7 TO 1 STEP-1 

1010 IF T<I,NT><>0 THEN 0-0:OOTO 1030 

1020 NEXT I •' 0-1 

1030 RETURN 

1980 REM - 

1990 REM DISEGNO TORRI 

2000 PRINT"* TORRI DI HANOI" 

2010 IM—0 

2020 PRINT:PRTNT:PRINT " • 0 0 " 

2030 FOR 1-7 TO 1 STEP-1:PRINT" "i 

2040 FOR J-l TO 3 

2050 FOR K-8 TO 2 STEP-2 

2060 IF T<I,J>-K-1 THEN PRINT" :QOTO 2090 
2070 IF T<I,J»-K THEN PRINT"»" 1 : GOTO 2090 
2080 PRINT" "; 

2090 NEXT K 

2100 PRINT CHRS<18>;“ "JCHRS<146>; 

2110 FOR K-2 TO 8 STEP2 

2120 IF T<I,J>-K-1 THEN PRINT"«■;:QOTO 2150 
2130 IF T< I. J»-K THEN PRINT"»" J : GOTO 2150 
2140 PRINT" "; 

2150 NEXT K 
2160 PRINT " 

2170 NEXT J 
2180 PRINT:NEXT l 
2190 PRINT 

2200 PRINT " TI T2 T3" 

2210 PRINT:PRINT:PRINT:PRINT:PRINT"NUM DI PROVE:"JC 
2228 RETURN 
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IL PROGRAMMA 

Dalla riga 30 alla 120: inizializzazione 

Si dimensiona una tabella T per conoscere durante il gioco lo sposta¬ 
mento dei 7 dischi sulle 3 torri. 

Poi si sceglie il numero di dischi da giocare tra 3 e 7. 

Si riempie la tabella di partenza, mettendo tutti i dischi sulla prima 
torre: il disco più grande è posto nella posizione 1. Poi si chiama il sot¬ 
toprogramma 2000 per il disegno del gioco. 

Dalla riga 130 alla 370: spostamento dei dischi 

Si comincia il gioco scegliendo il numero della torre di partenza (si 
sposta in questo caso il disco superiore). Il sottoprogramma 1000 trova 
il numero di questo disco. Se questa torre non contiene nessun disco, 
si mette la bandierina 1 (variabile Q). Al ritorno del sottoprogramma, 
se Q=1 si ritorna a scegliere la torre di partenza. 

Dalla riga 380 alla 450: fine del gioco 

Si testa, sulla terza torre, se tutti i dischi sono sistemati. Se non è co¬ 
sì, si ritorna alla riga 120 per il disegno dei dischi. Nel caso contrario, 
si visualizza il messaggio 'RIUSCITO’. 

Dalla riga 2000 alla 2220: disegno delle torri 

Queste righe disegnano sullo schermo, con dei caratteri semigrafici, i 
dischi così come si trovano nella tabella T( ). 
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DATA 

NOME DEL PROGRAMMA TQRRI D/ HANQ , 

PAGINA 

/ 

IDENTIFICAZIONE delle VARIABILI 


4 /, 

#/ 


VARIABILE 


CONTATORE 


VARIABILE 


VARIABILE 


INDICE 


INDICE 


INDICE 


VARIABILE 



Numero di prove 


amento oei disco 
tórre di arrivo 





BANDIERA 


TABELLA 


VARIABILE 


VARIABILE 


Ciclo FOR/NEXT 


Gelo FOR/NEXT 


Gelo FOR/NEXT 


Numero di dischi 


Numero della torre da studiare per 
Il sottoprogramma della verifica 
In 1000 


Se Q=1 c'e un errore di spostamento 


Spostamento dei dischi su ogni torre 


Torre di arrivo 


Torre di partenza 




RtpreduziorM vntatt C Editti 
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Gioco del 15 


Il gioco del 15 è stato inventato da Sam Lloyd negli Stati Uniti nell'an¬ 
no 1880. Esso si compone di ima piastra e quindici placchette numera¬ 
te da 1 a 15, che si dispongono in disordine (più di ventimila miliardi 
di possibilità). Lo spazio vuoto sulla piastra permette di muovere le 
placchette per metterle in ordine crescente. 

Lanciare il programma schiacciando RUN. Dopo qualche istante, il 
tempo di mischiare il quadro, il piatto compare sullo schermo. 

Solo le placchette vicine alla casella vuota possono essere mosse. 
Questo non è il gioco originale di Sam Lloyd. Di consequenza, tutte le 
posizioni di partenza permettono una ricostruzione dell’insieme del 
gioco. 


0I0C0 DEL 19 

i-1-n 

i i 1 

i ie i 9i 
i i i 

1 1 

1 1 

114 1 

1 1 

i i i 

1 7 1 9 1 

1 1 1 

1 1 

1 1 

3 1 6 1 

1 1 

1 1 1 

1 1 1 

1 13 1 19 1 

1 1 1 

1 1 

1 12 1 

1 1 

1 1 1 

1 1 1 

1 14 1 71 

1 1 1 

1 1 

1 1 

8 1 11 1 

1 1 

CHE NUMERO : ? 3 
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10 REM OIOCO DEL 19 

20 REM - 

30 DIM T<16> 

40 D<1>— 4:D<2>-4:D<3>-1 ; D<4>—1 
50 PRINTVJ OIOCO DEL 13" 

60 FOR 1-1 TO 15:T<I>-I:NEXT I 
100 V-16 

110 FOR 1-1 TO 128 

120 R-INT<RND<1>*4>+l 

130 IF V+D(flKl OR V*D<A»16 THEN 120 

140 IF INT(V/4>-V24 PHD A-3 THEN 120 

150 IF INT<V/'4>-<V-l>/4 PND A-4 THEN 120 

160 T<V>-T<V-*-D<A>> 

170 T<V+D<A>>-0 
180 V-V+D<fl> 

190 NEXT I 

280 REM - 

290 REM DISEGNO OIOCO 

300 PRINT 

310 FOR 1-1 TO 4 

320 print" r; 

330 FOR J-l TO 4 : PRINT"-I"; :NEXT J:PRINT 

340 FOR K-l TO 3:PRINT" fi 

350 FOR J-l TO 4 PRINT" P; = NEXT J^PRINT 

360 NEXT K,I 

370 PRINT" ";:FOR 1-1 TO 16-PRINT" —J!NEXT I 

380 FOR 1-0 TO 15 

390 IF T<!♦!>—0 THEN 430 

400 POKE 1196+1NT<I/4>»160*<I-<INT<I24)M>)*4,RSC<RIOHT 


: FOR 1-1 TO 16-PRINT"—J^NEXT I 


410 IF T< 1+1X10 THEN 430 


*<STR*<T<I«-1 >>,!>> 


420 POKE 1195+INT<I24>*160-*-<I-CINT< 124)04)>*4.RSC<MID4 
430 NEXT I <STR*<TCI-M>>,2,1>> 

480 REM - 

490 REM IL OIOCO 

300 POKE 214/19 : PRINT•• PRINT" " = POKE 214. 19 = PRINT 

310 R—0 : INPUT"CHE NUMERO ";R 

320 IF R<1 OR R>13 THEN 300 

338 FOR 1-1 TO 16 

340 IF R-T<I> THEN 360 

550 NEXT I 

360 R-I 

370 FOR 1-1 TO 4 

380 IF R+D<I)>16 OR R-*-D<IXl THEN 600 

390 IF T<R+D<I>>-0 THEN 620 

600 NEXT I 

610 GOTO 300 

620 T<R+D<I>>-T<R> 

630 T<R>-0 
640 R—R—1 

630 P-1193+INT<<R+DCI>>24>*160+<R+D<I>-<INT<<R-»-D<I>>2 

4>*4»*4 

660 POKE P+l.RSC<RIGHT»<STR#<T<R-M4Da>>)/l>) 

670 IF T<R+1+D<I> ><10 THEN 690 

688 POKE P,fìSC<MID*<STR*<T<R+H-Da>>>/2. l)):OOTO 700 
690 POKE P.32 

780 POKE 1196+INT<R/4>*160-KR-<INT<R24>*4>>*4,32 
710 POKE 1193+INT<R,/4>*160-KR-<INT<R24>*4>>*4/32 

780 REM - 

790 REM FINE DEL OIOCO ? 

800 FOR 1-1 TO 13 
810 IF T(I)OI THEN 500 
820 NEXT I 

830 POKE 214,19: PRINT 
840 PR)NT“O.K HPI TROVATO" 

830 OET 8#:IF 8*-"" THEN 830 
860 CLR-OOTO 30 
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IL PROGRAMMA 

Dalla riga 30 alla 190: inizializzazione e mischiaggio 

La tabella T corrisponde a sedici caselle del quadro. Si introducono 
dunque i numeri da 1 a 15 (riga 60). La tabella D corrisponde allo spo¬ 
stamento delle placchette. 


Tabella T( ) 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

/ 


Tabella D< ) 

-4 

t 

-1 - X - + 1 
1 

+ 4 


Si mischiano i numeri cambiando due caselle designate da un numero 
casuale e il puntatore della casella vuota (variabile V). Sono necessari 
centoventotto cambiamenti per mischiare correttamente il quadro. 

Dalla riga 300 alla 430: disegno del quadro 

Si visualizza il gioco sullo schermo col nuovo ordine (o piuttosto disor¬ 
dine!). Le cifre sono messe sullo schermo direttamente con dei POKES 
(dalla riga 380 alla 430). 

Dalla riga 500 alla 710: il gioco 

Si sposta il numero schiacciato dal giocatore, verificando che non sia 
inferiore ale superiore a 15, e che sia vicino alla casella vuota. Lo 
spostamento è calcolato con la tabella D. Come per il disegno del gio¬ 
co, questi numeri sono visualizzati con dei POKES. 

Dalla riga 800 alla 860: fine del gioco 

A ciascun tentativo si verifica se restano delle placchette da riordina¬ 
re. Se è così, si ritorna alla riga 500 per un nuovo tentativo. 
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DATA 

NOME DEL PROGRAMMA 

GIOCO DEL 15 

PAGINA 

/ 

IDENTIFICAZIONE delle VARIABILI 


/// 


VARIABILE 


VARIABILE 


TABELLA 


INDICE 


INDICE 


INDICE 


VARIABILE 


VARIABILE 


TABELLA 


VARIABILE 




Carattere scelto da GET 


Direzione dello spostamento 


Ciclo FOR/NEXT 


Ciclo FOR/NEXT 


Ciclo FOR/NEXT 


a prossima cura 


Risposta del giocatore 


Contiene I numeri del quadro 


Puntatore della casella vuota 
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Balistica 


Prendete due vicini di casa che non vanno d’accordo, le loro case e il 
muro che li separa. 

Essi non smettono mai di lanciarsi reciprocamente dei proiettili in mo¬ 
do da distruggere l’abitazione avversaria. 

Secondo le leggi civili, tirano a turno, regolando accuratamente l’ango¬ 
lo e la potenza (da 0 a 90), la forza e la direzione del vento che soffia 
quel giorno e la lontananza del bersaglio. 

I 2 giocatori che li rappresentano utilizzano le frecce sinistra e destra 
convalidando le coordinate schiacciando il tasto RETURN. 

II primo dei 2 avversari che distrugge almeno 10 elementi di una casa 
è considerato il vincitore. 

Ma non prendetevela: la rivincita non tarderà! 
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Visualizzare 
Il nome del 
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le REM BALISTICA 

20 REM - 

30 PRINT "rr :POKE 33290,2 ; POKE 33281,2 
40 X-INT<RND<1>812> 

30 P<l>-X+3 
60 008UB 900 
70 X-INT<RND<l>812>+23 
80 P<2>-X-l 
90 QOSUB 900 

100 FOR 1-1 TO 39 : PRINT"™"J : NEXT I 
110 POKE 214,7 ! PRINT 

120 FOR 1-1 TO 9 : PRINT TBB<19)1 : NEXT I 
130 W-INT<RND<1>*3>+1 
140 8V-INT<RND<1>4.5> 

180 V<1>-W'V<2>-W ._ 

160 IF SV-0 THEN V<1>— V<1> ! PRINT"«"lTRB<17>*"<-"lCHR* 

<vv+4e>;"-" : 00T0 180 

170 V<2>—V<2> :PRINT"»* i TBB< 18>i "-" i CHR*<W+40> 1 "->" 
180 S<1>-1:8<2>—I 
190 B-1.743329252E-2 
200 J*a>-"8INISTRB"!JS<2>-"DE8TRA" 

210 8*<1>-"BNGOLO":8S<2>-"POTENZB" 

220 POKE 214,20:PRINT 

230 FOR 1-1 TO 36 ; PRINT"."1 ! NEXT I 

240 PRINT : PRINT"0- 

230 FOR 1-13 TO 90 STEP 13 

260 PRINT MIDS<STR<<I >,2,2)1"-"1 

270 NEXT i:PRINT"WW 

290 REM - 

290 REM IL GIOCO 

300 IF J-l THEN J-2: GOTO 320 

310 J-l 

320 QOSUB 1000 
330 R<1>-R<1>*3 
340 IX-COS<R<1>8B> 

330 IV-8IN<R<1>*B> 

360 X-P<J> ! V-12 

370 FOR 1-1 TO R<2>+V<J> 

380 POKE 1824+X+INT<V>*40,32 
390 X-X+IX*8<J> 

400 V-V-IV 

410 IF X<1 OR X>38 OR V<1 OR V>20 THEN 300 
420 Z-PEEK<1824+X+1NT < Y >S40> 

430 IF 2032 THEN 700 

440 POKE 1024+X+INT<Y>*40,ei:POKE 33296+X+INT<Y>840,1 
430 NEXT I 

460 FOR 1-1 TO <R<2>-V<J>*8<J>>/2 
470 POKE 1024+X+INT<V>840,32 
480 X-X+IX«S<J> 

490 IF XC1 OR X>38 OR V<1 OR V>20 THEN 300 
300 Z-PEEK<1024+X+INT<V)S40> 

310 IF Z032 THEN 700 

320 POKE 1024+X+INT<V>840,8i:POKE 33296+X+INT<Y>840,1 
530 NEXT I 

340 POKE 1024+X+INT<Y>840,32 
330 X«X+IX*8<J> 

360 V-V+IY 

370 IF X<1 OR X>38 OR Y<1 OR Y>20 THEN 300 
380 Z-PEEK<1024+X+INT<Y>840> 

390 IF ZOS2 THEN 700 

600 POKE 1024+X+INT<Y>840,01:POKE 33296+X+INT<V>840,1 
610 GOTO 340 
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680 REM- 

690 REM FINE DEL TIRO 

700 IF 2-120 OR 2-102 THEN 300 

710 POKE 1024+X+INT<V>440,32 

720 0<J>-0<J>+1 

730 IF GCJX10 THEN 300 

740 POKE 214,22 : PRI NT : PRI NT -IL 01OCRTORE DI 


• VINCE "J 

730 OET R*: IF R#-"" THEN 730 
760 RUN 

880 REM - 

890 REM STRMPR LE ORSE 
900 POKE 214,10:PRINT 

910 PRINT TRBOO IV-V 

920 PRINT TRB<X>i"l-I" 

930 PRINT TRB<X>;"I m P 
940 PRINT TRB<X);"I bH I" 

930 PRINT TRBOO< "I *-*■• r 
960 PRINT TRB<X>;“I I" 

970 RETURN 

JW REM- 

990 REM 8CELTR DEI ORTI 
1000 FOR 1-1 TO 2 

1010 POKE 214,22 ; PRINT:PRINT S»<I>i' DEL OIOCRTORE 


1020 

1030 

1040 

1030 

1060 


0-17 

POKE 1864+0,174 

OET RS: IF R*-''« THEN 1040 

IF RS-CHR*<13) THEN 1090 

IF R#-CHR*<137> HMD Q>0 THEN POKE 1864+0,46:0-0-1 


: GOTO 1030 

1070 IF RS-CHR*<29> RND 0<33 THEN POKE 1064+0,46:0-0+1 

1080 DOTO 1030 

1090 RCIJ-0 

1100 POKE 1864+0,46 

1110 NEXT I 

1120 R<2>-R<2>/2 

1130 RETURN 
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IL PROGRAMMA 

Dalla riga 30 alla 270: inizializzazione 

Si comincia con il disegnare sullo schermo le 2 case utilizzando il sot¬ 
toprogramma 900 che le stampa nella posizione X. 

Nelle righe dalla 130 alla 270, si definiscono le principali variabili uti¬ 
lizzate nel programma (vedere identificazione delle variabili). 

Dalla riga 300 alla 610: il gioco 

Gli incrementi verticali e orizzontali dello spostamento del sasso sono 
calcolati a partire dalla variabile A che converte i gradi in radianti. 

Il proiettile è spostato in 3 tempi: la salita (dalla riga 370 alla 450), lo 
spostamento orizzontale (dalla riga 460 alla 530) e la discesa (righe dal¬ 
la 540 alla 610). Questi utilizzano tutti i parametri già calcolati: incre¬ 
menti, direzione e velocità del vento... 

Ad ogni spostamento si testa se nessun ostacolo si trova sulla sua stra¬ 
da. 

Dalla riga 700 alla 760: fine del lancio 

Se ima delle parti ancora visibile sullo schermo è colpita, si incremen¬ 
ta il contatore dei punti del giocatore. Si continua il gioco fino a quan¬ 
do questo è inferiore a 10. 

Dalla riga 1000 alla 1130: scelta dei dati 

Questo sottoprogramma sceglie l’angolo e la potenza dati al proiettile 
da ogni giocatore. Secondo il valore del carattere scelto in A$, si spo¬ 
sta il punto verso la destra o verso la sinistra della scala in basso allo 
schermo. Quando si tratta di RETURN (codice 13), si guarda l’ultimo 
valore della variabile Q. 


DATA 

NOME DEL PROGRAMMA 

PAGINA 

/ 

IDENTIFICAZIONE delle VARIABILI 




Carattere scelto da GET 


Conversione gradi-radianti 


Punti di ogni giocatore 


Ciclo FOR/NEXT 


Numero del giocatore 


Nome dei giocatori 


Odo FOR/NEXT 


Messaggio da stampare 


Posizione delle case 


Puntatore sulla scala 


Risposta angolo e potenza 


Tipo di dato da scegliere 


Nomi di dati da scegliere 


Direzione del vento 


Velocità e direzione del vento 
r ooni giocatore 
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L'operazione è giusta 


Non sono ancora le sette ma niente vi impedisce di cominciare ad inte¬ 
ressarvi a "l’operazione è giusta". 

Dopo un certo tempo di riflessione il Commodore 64 vi presenta 7 nu¬ 
meri casuali che dovrete combinare con le 4 operazioni per trovare 
l'ottavo indicato a metà dello schermo. 

50 secondi più tardi, il vostro calcolatore stampa la sua soluzione. 
Avete ancora tempo? Allora schiacciate sulla tastiera (non troppo for¬ 
te!) e un’altra serie di numeri apparirà. 


(.'OPERAZIONE E' 0IU8TA 


9 6 73 3 

tee s 10 

—•> 130 


LA MIA SOLUZIONE ... 


6 

6+ 100- 106 
106+ 73- 101 
101- 9— 172 
172+ 3- 177 
177- 9- 160 
160- 10- 150 
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t 
♦ z 



10 REM (.'OPERAZIONE E' OIUSTA 
20 REM - 

30 PRINT-n L'OPERAZIONE E' GIUSTA":PRINT PRINT 

40 SS-"":NC-INT<RND<l>*4>+4 

30 FOR 1-1 TO NC 

60 N<I>-INT<RND<1>014>+1 

70 IF NtlXll THEN 90 

80 N<I>-CN<I>-10>*25 

90 IF I>1 THEN 120 

100 R-N<1>:S#-STR*<N<1>> 

110 OOTO 280 

120 0-INT<RND<l>*4>-H 

130 S#-SS+“*"+STRS<R> 

140 ON 0 OOTO 150/170,200,230 
130 R-R«-N<I>:SS-S*+"+"+STR*<N<t>> 

160 OOTO 260 

170 R-R-N<I>:IF R<1 THEN 40 
180 SS-SS+"-"+8TR*<N<I>> 

190 OOTO 260 

200 IF N<I>«1 THEN 40 

210 R-R*N <I>:SS-SS+"*"+8TR#< N<I> > 

220 OOTO 260 

230 IF INT<R2N< I > >OR/N< I > THEN 40 

240 IF N<I)-1 THEN 60 

230 R-R2Na>:SS-S**-V”+STR*<N<I>> 

260 IF R>999 THEN 40 
270 SS-S*+"«“+STR»<R> 

280 NEXT I 

290 IF R<100 THEN 40 
300 IF NC-7 THEN 300 

380 REM - 

390 REM ALTRI NUM 
400 FOR I-NC+1 TO 7 
410 N<I>-INT<RND<1>*14>+1 
420 IF N<I)C11 THEN 440 
430 N<I>-<N<I>-10>*23 
440 NEXT I 

480 REM- 

490 REM MESCOLAMENTO 
500 FOR 1-1 TO 14 
310 A-INT<RNB<1>*7>-M 
320 B-INT<RND<1)*7>+1 
330 C-N<A>!N<A>-N<B>:N<B>-C 
340 NEXT I 

380 REM - 

390 REM NUM PROPOSTI 
600 FOR 1-1 TO 7 
610 PRINT N(I), 

620 NEXT I 
630 PRINT•PRINT 

640 PRINT TAB< 14> / "“•>"# R ■ PRINT : PRINT 

680 REM - 

690 REM CICLO 

700 FOR 1-1 TO 30000 

710 NEXT I 

788 REM - 

790 REM SOLUZIONE 

800 PRINT-PRINT" LA MIA SOLUZIONE •••* : PRINT 


___ PRINT:PRINT TABU 1)J 

810 FOR 1-1 TO LEN<S*> 

820 IF MID*<S»,I,1>-"S" THEN PRINT:PRINT TAB<11>; :OOTO 840 
830 PRINT MIM<SS,I,1>; 

840 NEXT I 

830 OET AS: IF A*""" THEN 830 
860 OOTO 30 


S 
* 7 


TT 


x 

-*r 


’Uu» 
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IL PROGRAMMA 

Dalla riga 30 alla 300: inizializzazione 

La variabile NC contiene un numero casuale compreso tra 4 e 7 che 
fornisce il numero di operazioni da effettuare per arrivare alla soluzio¬ 
ne. Le cifre utilizzate per queste operazioni sono poste nella tabella N, 
l'operazione è posta nella stringa S$ e il risultato in R. 

Se la variabile R è superiore a 999 o inferiore a 100, si toma all'inizio 
del programma (riga 40). 

Dalla riga 400 alla 440: altre cifre 

Se il numero di cifre NC è inferiore a 7, si completa la tabella N con 
altre cifre casuali. 

Dalla riga 500 alla 540: mescolamento 

Per sviare il giocatore, si mescola la tabella N utilizzando 2 numeri ca¬ 
suali A e B. 

Dalla riga 600 alla 710: numeri proposti e ciclo d'attesa 

Dopo la stampa delle 7 cifre, si effettua un ciclo chiuso (righe 700 e 
710) di circa 50 secondi, per permettere al giocatore di trovare la solu¬ 
zione. 

Dalla riga 800 alla 860: soluzione 

Terminato il ciclo d’attesa, si stampa sullo schermo la soluzione del 
calcolatore sciogliendo la stringa di caratteri S$ prima di tornare a 
una nuova proposizione quando si è schiacciato un tasto (riga 850). 
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NOME DEL PROGRAMMA . PAGINA 

L’OPERAZIONE È GIUSTA / 


IDENTIFICAZIONE delle VARIABILI 


J, 

fi 



VARIABILE 


VARIABILE 


VARIABILE 


VARIABILE 


INDICE 


CONTATORE 


TABELLA 


SCAMBIO 


VARIABILE 


VARIABILE 


Numero casuale per il mescoiamemo 


Carattere scelto da GET 


Numero casuale oer il mescoiamento 


zzata per le inversioni 
nel mescolamento 


Ciclo FOR/NEXT 


umero delle cifre utilizzate 
per II numero da trovare 


Tabella delle cifre casuali 


Tipo delle operazioni da effettuare 


Risultato delle operazioni 


Lista delle operazioni da effettuare 
r trovare la soluzione 
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Parole nascoste 


Dopo aver fatto introdurre una lista di parole (da 5 a 15) di 12 lettere 
massimo, sul vostro calcolatore vedrete apparire una griglia di 20 let¬ 
tere per 20 e a destra dello schermo la lista delle parole. 

Le parole selezionate si trovano in mezzo agli altri caratteri. Potete 
leggerle diritte (calcolatore) o all’inverso ma non mischiate. 

Esse possono aver preso diverse direzioni, come vi mostra lo schema 
seguente per la parola "Micro’: 


ooo 

R R R 

c c c 
I i l 
ara 

ORCHI IIICR0 


a a a 

i i i 

c c c 

R R R 
0 0 0 


Il vostro calcolatore è molto paziente, potrete stare tutto il tempo che 
volete per cercare le parole nascoste. Basterà schiacciare un tasto per 
introdurre una nuova lista. 


OTQVVIVDMUCKDTOZCURI 10 

TRLPXOCRVDZAOLUVCLTL CERA 

IRDQIAMDOVMHHUKUZTQN SECANTE 

WRVIAFFUZDTJIXPOPHXU ZATTERA 

0TWWKOHCAISXUBTKRBMA DINO 

JJVSFUAOLUNRTKPLRWP GHIANDA 

LDLCWPDSTDQTFNVKXKQN TUA 

L8ECANTETHKVOIKRZU.H UFFA 

D0H3TCR2TXUUBSPTZMQT 
ZIAODZOVFFVUIAVLJHXP 
AARHHAAIWZJXXXTUAVDN 
LHNDHT JHVOOSLVC'XLMEV 
WKHSWHWUOVRIEDN ! VAA 
CKHMNKQOKQDVAWWPDDVD 
SEKROTWEFFPIHRUBNZHH 
XJRODTROEBBONAEAPUES 
ZORAJIVEZOAPHOITZXMO 
EVEDDFBRRKAFZHGITTRV 
NDHNIARALOHHOUIEUAMO 
SAONOOLANOXUECUFAIZI 
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REM PAROLE NASCOSTE 

20 REM- 

30 DIM MS<13><OS<20> 

40 B*-" 

50 POR 1-1 TO 20:QS<I>«B* ; NEXT I 

60 INPUT-NUMERO DI PAROLE "JNH'IP NMO OR NM>13 THEN 60 

70 POR 1-1 TO NM 

00 PRINT"PAROLA";IJ! INPUT MS<I> 

90 IP LEN<MS<I)»12 THEN 80 

100 NEXT I 

110 POR I-i TO NM 

120 8«INT<RND<1>+.3>S-1'IF S-0 THEN S-l 
130 D-INT<RND<1>»4>+! 

140 X-INT<RND<1>*20>1-1 
150 V-INT<RND<1>*20>+1 
160 L-LEN<MS<I>> 

170 OH D POTO 190<250<320< 430 

175 REM - 

180 REM ORIZZONTALE 

190 P-N+<<L-1>*S>:IF P<1 OR P>20 THEN 120 
200 IF P>X THEN A—X ! OOTO 210 
203 A-P 

210 IP MIDS<0S<VI< A<DOLEFTS<BS< L> THEN 120. 

220 C-l : FOR J-X TO P STEP S‘OS<V>-LEFTS<OS<V>< J-D+HIDS 
20-j) <MS<I><C<l>4RIOHTS<OS<V>< 

223 C-C+1‘NEXT J 
230 OOTO 440 

233 REM - 

240 REM VERTICALE 

250 P-V+<<L-1)*S>:IF P<1 OR P>20 THEN 120 
260 FOR J-V TO P STEP S 
270 IF MIDS<OS<JI<X< 1)0" " THEN 120 
280 NEXT J 

290 C-l=FOR J-V TO P 8TEP 8 : 0S<J>-LEFTS<0S<J>,X-1>4MIDS 




20_ X > <MS<D<C<1>+RI0HTS<0S<J>, 

293 C-C+1'NEXT J 
300 OOTO 440 

303 REM - 

310 REM ALTO 
320 Z—1 

330 P1-X4<<L-1>*8>:IF P1<1 OR Pl>20 THEN 120 

340 P2-V+<LSZ>-IF P2<1 OR P2>20 THEN 120 

350 C—V : A—1 ; FOR J-X TO PI STEP 8 

360 IF MIDS<OS<D<J< DO" " THEN 120 

370 C-C+Z:A-A+l:NEXT J 

380 C-V : A—1 ; FOR J-X TO Pi STEP 3 

390 0S<C>-LEFTS<OS<O<J-D-H1IDS<MS<D,A,1>+RIOHTS<OS<O<20-J> 
400 C-C+Z : A—A+l:NEXT J 
410 OOTO 440 

415 REM - 

420 REM BASSO 
430 Z-l : OOTO 330 
440 NEXT I 

480 REM - 

490 REM STAMPA LA ORIGLIA 
300 PRI NT"ri- 
SlO FOR 1-1 TO 20 
520 FOR J-l TO 20 

330 CS-MIDS<OS<I><J<1>!IF CS-" " THEN PRINT CHRS<<RND<D 


340 PRINT CSj 
330 NEXT J 

560 IF K-NM THEN PRINT* *<MS<I>I 

570 PRINT : NEXT I 

380 OET ASJIF AS-"" THEN 380 

390 OOTO 40 



*26)+63)i : OOTO 330 
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IL PROGRAMMA 

Dalla riga 30 alla 170: inizializzazione 

Si introduce il numero di parole. Questo deve essere compreso tra 5 e 
15 (riga 60). 

Il numero casuale D dà la direzione con cui saranno scritte le parole 
nella griglia, la variabile S ne dà il senso e X e Y il punto di partenza. 

Dalla riga 200 alla 440: orizzontale, verticale e diagonale 
(alto e basso) 

I numeri casuali X e Y designano il posto del primo carattere da porre 
nella griglia, si calcola il puntatore P tenendo conto della lunghezza e 
del senso della scrittura (variabile L e S). 

Si inserisce ciascun carattere della parola M$( ) nelle caselle corrispon¬ 
denti della tabella G$( ). 

Dalla riga 500 alla 590: risultati 

Si visualizza sullo schermo la griglia G$(), si sostituiscono tutti gli 
spazi con dei caratteri casuali compresi tra A e Z così per le parole 
contenute nella tabella M$. 
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Inversione 


Questo gioco consiste nel riordinare le cifre 1 23456789ole lette¬ 
re ABCDEFGHI che il calcolatore all’inizio stampa in disordine. 
Per questo propone di invertire un numero di cifre che gli indicherete 
a partire dalla sinistra della serie stampata. Inverte allora tutte le ci¬ 
fre concernenti (o le lettere) e stampa la nuova successione ottenuta. 
Gli scambi proseguono fino a quando le 9 cifre o lettere non sono in 
ordine. Il programma stampa allora il numero di tentativi. 

A voi di trovare la migliore tattica. 


•—INVERSIONE—* 


r l i i T ^-i l l l 

IRIBICIDIE IF IO IH II I 
■ ■ ■ ■ ■ ■ ■ • ■ ■ 


NUN DI INVERSIONI? 

SEI RIUSCITO 
IN 06 PROVE 
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Effettuare 
l'inversione 
in TJ 
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<■> 



10 REM INVERSIONE 

20 REM- 

30 T»INT<RND<1>*2>+1 
40 A#<l>-"ABCDEFOHI" 

50 MS < 2 > ■ “ 123456789" 

60 TS-AS<T> 

80 REM - 

90 REM MESCOLAMENTO 
100 FOR 1-1 TO 20 
110 V-INT<RND<1)S9>+1 
120 W-INT<RND<1>*9>+1 
130 XS-HID#<TS,V»1> 

140 T*-LEFTS<T*,V-l>4MIDSCT*,M,l>4RIOHTS<T#,9-V> 

150 T*-LEFTS<T*,M-l>«-XS4RIOHT*<T#,9-U> 

160 NEXT I 

180 REM - 

190 REM DISEONO DEL GIOCO 

200 PRINT"n *—INVERSIONE—S" 

210 PRINTSPRINT SPRINT SPRINT SPRINT 
220 PRINT" i ■ t ■ i -i i i t -i" 

230 PRINT* I I I I I I I I I I" 

240 PRINT" * ■-* 1 1 1 * " 

300 POKE 214,6 SPRINT 
310 FOR 1-1 TO 10 

320 PRINT TAB<84IS2>;HID*<T*,I,l>; 

330 NEXT I 

340 IF Tt-A*<T> THEN 600 

380 REM - 

390 REM SCELTA 

400 POKE 214,12 : PRINT 

410 PRINT TAB<11>;“NUH DI INVERSIONI?"; 

420 OET NS sIF N*-"“ THEN 420 
430 N-VAL<NS> 

440 IF N<2 OR N>9 THEN 420 
450 FOR 1-1 TO N/2 
460 X*-MID#<TS,I,l> 

470 T*-LEFT*<TS, I-1)+MID*<TS,N-I+1,1>+RI0HTS<T»,9-I> 
480 TS-LEFT*<TS,N-I>4X**RIGHTS<T*,9-N4l-l> 

490 NEXT I 
500 E-E+l 
510 GOTO 300 

580 REM - 

590 REM FINE 

600 POKE 214,16SPRINT 

610 PRINT T«B<1I>;"SEI RIUSCITO"SPRINT TAB<13>; 

"IN"JE!"PROVE" 

620 GET RSs IF A4-"" THEN 620 
630 RUN 


<®> 
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IL PROGRAMMA 

Dalla riga 30 alla 60: inizializzazione 

La tabella A$ fornisce la successione di lettere o di cifre utilizzate nel 
gioco. La variabile T dà a caso una delle 2 serie. 

Dalla riga 100 alla 160: mescolamento 

Il mescolamento è effettuato prendendo 2 delle cifre (o lettere), a caso, 
in T$ e invertendole. Ripetendo il processo 20 volte si ottiene una serie 
nel disordine. 

Dalla riga 200 alla 340: disegno del gioco 

Dopo il disegno della cornice, si utilizza un ciclo per stampare i carat¬ 
teri contenuti nella variabile T$. Il POKE in 214,6 fornisce un indirizzo 
cursore della riga 7. 

Dalla riga 400 alla 510: scelta 

Si sceglie tramite GET il numero di inversioni da effettuare. Si testa 
se il numero dato è superiore a 1 e inferiore a 9 (riga 440). 

Il ciclo FOR/NEXT in 450 effettua le permutazioni nella variabile T$. 
La riga 500 incrementa il contatore di tentativi E. 

Dalla riga 600 alla 630: fine della partita 

Quando la variabile T$ è uguale alla serie iniziale (tabella A$), si stam¬ 
pa il numero di tentativi prima di ricominciare una nuova partita. 
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INVERSIONE 


IDENTIFICAZIONE delle VARIABILI 


PAGINA 

/ 



VARIABILE 


TABELLA 


CONTATORE 


INDICE 


VARIABILE 


VARIABILE 


SCAMBIO 


VARIABILE 


VARIABILE 


VARIABILE 


VARIABILE 



Carattere scelto da GET 


Usta dei caratteri da invertire 


Numero di prove 


Oc/o FOR/NEXT 


Valore numerico di N$ 


Numero di Inversioni da effettuare 


= 1 ■ lista alfabetica 


- 2 - lista numerica 


Lista da invertire, sia A$(T) 


Utilizzate per il mescolamento 
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Super numero segreto 


Questo gioco consiste nel cercare un numero segreto che il calcolatore 
ha scelto e che è compreso tra 1 e 99. Ad ogni soluzione proposta, il 
programma risponde con uno dei messaggi "TROPPO PICCOLO" o 
"TROPPO GRANDE" in rapporto al numero da trovare. 

La prima difficoltà di questo gioco è la seguente: 

la vostra proposizione deve essere il risultato di un'operazione, per 
esempio 4 x 5 = 20 numero che proponete. 

Dovete cominciare con 2 delle 9 cifre da 1 a 9 che potete moltiplicare, 
dividere, addizionare o sottrarre. Gli operatori restano per tutto il gio¬ 
co le cifre comprese tra 1 e 9; al contrario dovete servirvi del risultato 
della vostra prima operazione per effettuare la seconda, poi del risul¬ 
tato della seconda per effettuare la terza... 

Ma la seconda difficoltà del gioco consiste nell'impossibilità di utiliz¬ 
zare 2 volte la stessa cifra come operatore. 


Esemplo prima cifra: 

primo colpo: 

secondo colpo: 

terzo colpo: 

terzo colpo: 


4 

4 x 5 = 20 "TROPPO GRANDE". 4&5 non 

possono essere rigiocati 

20 : 2 = 10 "TROPPO PICCOLO". 4,5&2 non 

possono essere rigiocati 

10 + 2 = 12 "IMPOSSIBILE". 2 è stato già 

giocato 

10 + 7 = 17 "VINTO IN 3 COLPI" 


Attenzione: avete diritto a 8 tentativi per vincere! 


SUPFR NUMERO SECRETO 
VI RIMANOONO : 

V 3 4 5 

« 7 e 9 

RISULTATO OPERAZIONE 1 

OPERAZIONE? ♦ 

CIFRA? 4 

RISULTATO S 

TROPPO PICCOLO 
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NO 
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10 REM SUPER NUM SEGRETO 

20 REM - 

30 POR I-t TO 9*R<I>—1 : NEXT 1 
40 N-ÌNT<RNDO>*99>«-l 

100 PRIMT'n SUPER NUMERO 8EGRET0" : PRINT : PRINT : PRINT 
110 PRINT"VI RIMANGONO : " 

120 FOR 1-1 TO 9 

130 IF A<I>-1 THEN PRINT l, 

140 NEXT I 
150 PRINT •'PRINT 

100 REM - 

190 REM IL GIOCO 
200 IF R>0 THEN 240 
210 INPUT-PRIMA CIFRA";R 
220 IF R<1 OR R>9 THEN 210 
230 A<R>-0 : GOTO 500 

240 PRINT -RISULTATO OPERAZIONE"<R : PRINT 

250 INPUT"OPERAZIONE";04 

260 INPUT-CIFRA"JS 

270 IF SCI OR S>9 THEN 260 

200 IF A<8>-0 THEN 260 

290 IF 04-"*" THEN 360 

300 IF 04--+- THEN 380 

310 IF 04-"-- THEN 400 

320 IF 040-/'" THEN 100 

330 IF R/S<1 THEN 100 

340 IF INT<R2S>OR/S THEN 100 

350 R-R/S OOTO 500 

360 IF R*S>99 THEN 100 

370 R—R*S : DOTO 500 

380 IF R+S>99 THEN 100 

390 R-R+S : GOTO 500 

400 IF R-SO THEN 100 

410 R-R-S 

480 REM - 

490 REM RISULTATI 

500 PRINT:PRINT-RI8ULTAT0:-;R-PRINT 
510 IF R-N THEN 700 

520 IF R<N THEN PRINT-TROPPO PICCOLO" 

530 IF R>N THEN PRINT-TROPPO GRANDE" 

540 OET A4=IF A4--- THEN 540 
550 C-C+l : A<S)-0 
560 IF C<9 THEN 100 

580 REM - 

590 REM PERSO 

600 PRINT=PRINT-PECCATO I ERA«;N 
610 GOTO 710 

680 REM - 

690 REM VINCI 

700 PRINT:PRINT"BRAVO 1 ERA-JN 
710 GET A4:jf A*-"" THEN 710 
720 RUN 
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IL PROGRAMMA 

Dalla riga 30 alla 150: inizializzazione 

La riga 30 riempie la tabella da A(l) a A(9) con il numero 1 per cono¬ 
scere le cifre già utilizzate. 

La riga 40 pone nella variabile N il numero segreto (numero casuale). 
Le righe dalla 100 alla 150 stampano la tabella da A(ì) a A(9) per le ri¬ 
manenti cifre. 

Dalla riga 200 alla 410: il gioco 

Se nessuna operazione è stata effettuata si sceglie alla tastiera la pri¬ 
ma cifra. 

Altrimenti si stampa il risultato dell’ultima operazione proposta, poi si 
domanda l’operazione da effettuare e la cifra da utilizzare. 

La riga 280 verifica se barate e rimanda, in questo caso, alla scelta del¬ 
la riga 260. 

Le righe dalla 290 alla 410 ricercano il segno che volete utilizzare e ef¬ 
fettuano i calcoli. 

Dalla riga 500 alla 720: risultati 

Le righe dalla 510 alla 530 comparano la vostra soluzione al numero 
segreto e rimandano al messaggio corrispondente. Se siete fortunati la 
riga 700 si feliciterà con voi, altrimenti apparirà un messaggio "TROP¬ 
PO PICCOLO’ o "TROPPO GRANDE". 

La riga 550 incrementa il contatore del gioco (variabile C) e riporta a 0 
la cifra che avete utilizzato (nella tabella A( )). Se C = 9, si stampa la 
soluzione (variabile N) perché non ci sono più cifre da utilizzare. 


«tìar 
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DATA 

NOME DEL PROGRAMMA 

SUPER NUMERO SEGRETO 

_____ 

PAGINA 

IDENTIFICAZIONE delle VARIABILI 




TABELLA 


afre restanti 


VARIABILE 


Carattere scelto da GET 


CONTATORE 


Numero di prove 


INDICE 


Ciclo FOR/NEXT 


VARIABILE 


VARIABILE 


VARIABILE 


Numero segreto 


Operazione scelta 


Risultato dell'ultima operazione 


VARIABILE 


afra scelta 


Riproduzione vietale O Editai 

























Capitolo «3 
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Jack-pot 


Ecco un gioco che può sembrare in un primo momento passivo in 
quanto il giocatore interviene molto poco: ma attenzione al giocatore 
che si lascia affascinare, rischia di perdere il sonno! 

Dopo avere battuto RUN, il jack-pot si disegna con le combinazioni 
vincenti. 

Schiacciate qualsiasi tasto per cominciare la partita. Quando i simboli 
si fermano, se non avete vinto niente, il vostro capitale si decrementa 
di 20 lire. Schiacciate ancora un tasto per riprendere il gioco. 

Quando una combinazione è vincente, il vostro guadagno si visualizza 
in basso del jack-pot e il vostro capitale aumenta altrettanto. 

Pazienza, pazienza, questo jack-pot, degno dei suoi antenati, può occu¬ 
pare molto del vostro tempo... 
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4 


5 
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10 REM JRCK-POT 

20 REM - 

30 MRINTVr 
40 C-1000 

50 CS<1:C*<2>-"a":C»<3>-“4" ! C*<4>-"4" 
60 C*<5>-"*":C*<6>-“0":C»<7>-“0"!C*CB>-"0" 

80 REM- 

90 REM DISEGNO JHCK-POT 

100 PRINT"***-2000L. i-'" 


110 PRINT"<MM>-1000L. I 20L. I" 

120 PRINT-W» 500L. I > 1 I" 

130 PRINT"♦♦♦“ 400L. I s ' 1“ 

140 PRINT"***- 300L. ";CHR*<18>i“ 

150 PRINT-000- 200L. I I" 

160 PRINT"* $■ 100L. I i-r-T — i I" 

170 PRINT"» *- 100L. I I I I I I" 

180 PRINT" I 1 1,1 I" 

190 PRINT" I I " 

200 PRINT" -ICHRtaB);" 

210 PRINT" I I * 

220 PRINT" I I" 

230 print" i i-;cHR*ae>;" 

240 FOR I-1T05:PRINT" I I I 

250 IF I<2 OR I>4 THEN 270 
260 PRINT CHR*<157>JCHR*C18>;" '1 

270 PRINTìNEKT I 

290 PRINT" ";CHR*<18>;" 

300 PRINT : PRINT"CflP “ J Cj 


N 


CHR*<146>;" 

il i I"; 


310 008UB 3000 

320 (JET R*:iF A*-"" THEN 320 


380 REM - 

390 REM IL QIOCO 

400 FOR 1-1 TO 3 

410 D<I>-INT<RND<1>*8>4X 

420 T<I>*INT<RND<1>050>+5 

430 NEXT I 

440 008UB 2000 

450 008UB 3000 

468 FOR 1-1 TO 3 

470 IF T<I>-0 THEN 520 

480 T<I>-T<I>-1 

490 D<I>-D<I>4I 

508 IF D<I>-9 THEN D<1>-1 

510 POME 214,7-PRINT-PRINT TAB<16+I*2>;C*<D<I>> 

520 NEXT I 

530 IF T<1> OR T<2> OR T<3> THEN 468 

580 REM - 

590 REM VINCITA? 

600 C-C-20 : CMP-C 

610 D-D<l)*100+D<2>»ie+IK3> 

620 Dl-D<1>»1004D<3) 

630 IF D-lll THEN C-C+2000 

640 IF D-222 THEN C-C-H008 

650 IF D—333 THEN C-C+500 

£60 IF D-444 THEN C-C+400 

670 IF D-555 THEN C-C+300 

680 IF D-666 THEN C-C+200 

690 IF Dl-101 THEN C-C+100 
708 IF Dl-787 THEN C-C+100 
710 C-INT<<C40.01>*10V10 
715 CAP-INT<<CAP40.01>*10V10 

720 POKE 214,21:PRINT:PRINT"CMP: ";3TR*<C>i"L. "i 
738 IF C>CflP THEN 800 



I I" 
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740 0ET R*: IF R*-“" THEN 740 
750 IF C-0 THEN 900 
760 POTO 400 

700 REM - 

790 REM VINCITA 
800 CMP-INT < C-CRP+.I) 

810 PONE 214,16:PRINT 

820 PRINT TRBC18)iCRP : FORM-ITO100 : NEXTX 

830 POKE 214/16 : PRINT 

840 PRINT" I I IMII I fi 

850 SET R* : IF R*-“" THEN 810 
860 GOTO 400 

880 REM- 

890 REM PER80 

900 PRINT"n":PRINTSPRINT:PRINT:PRINT 
910 PRINT" ORRZIE PER LE" 

920 PRINT" MILLE LIRE" 

930 OET M*:iF THEN 930 

940 DOTO 30 

1980 REM - 

1990 REM DISC. LEVR 
2000 POKE 214/4 : PRINT 
2010 FOR 1-5 TO 13 
2020 PRINT TRB<28>;" 

2030 PRINT THB<28>;CHR*<ie>;" 

2040 PRINT TRB<28>/CHR9<18> i " 

2050 POKE 214/1 :PRINT 
2060 NEXT I 
2070 RETURN 

2980 REM - 

2990 REM SMLITA LEVR 
3000 POKE 214'< 12 : PRINT 
3010 FOR I-11T058TEP-1 
3020 PRINT TRB<28>;CHR»<18>;' 

3030 PRINT TMB<28>;CHRfae>; " " 

3040 PRINT TMB<28>i" “;CHR*<18>J" ";CHRf<146>J" " 

3060 POKE 214/1:PRINT 

3070 NEXT I 

3080 RETURN 

4000 GOTO 4000 
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IL PROGRAMMA 

Dalla riga 30 alla 60: inizializzazione 

Si pongono nella tabella C$ gli 8 simboli del jack-pot. 

Dalla riga 100 alla 320: disegno della macchina 

Il disegno della macchina è interamente elaborato in queste righe, 
esclusa la manopola che è determinata nel sottoprogramma 3000. 

Dalla riga 400 alla 530: il gioco 

Il gioco ha bisogno delle due tabelle seguenti: 

—D( ) dà il simbolo di partenza da visualizzare. I simboli seguenti ap¬ 
paiono nell'ordine definito dalle righe 50 e 60. 

—T( ) dà il tempo, e cioè il numero dei simboli che sfilano sulla mac¬ 
china. 

Quando queste due tabelle sono definite, si manovra la manopola uti¬ 
lizzando il sottoprogramma 2000 e 3000 (rispettivamente discesa e sali¬ 
ta), poi si visualizzano i 3 simboli a partire da D( ) per un tempo T( ), e 
C$(D(D). 

Dalla riga 600 alla 760: vinto? 

— Si comincia a decrementare il capitale C di 20 lire; poi si mette in 
CAP il capitale restante. 

— Addizionando D(l) a D(3), si ottiene una cifra che serve da compara¬ 
zione con le soluzioni vincenti (variabile D). La variabile DI non pren¬ 
de in considerazione che i due estremi della combinazione. 

— Si compara D e DI alle soluzioni vincenti e si incrementa il capitale 
(variabile C). Quando C è superiore a CAP si guadagna qualche cosa. Si 
va allora alla riga 800 per visualizzare l’ammontare della vincita; altri¬ 
menti si rincomincia un nuovo gioco. 

Dalla riga 800 alla 860: vinto! 

Si stampano successivamente la vincita e un rettangolo grigio per dare 
l'effetto di lampeggio fino a quando non si schiaccia un tasto. 


DATA 

NOME DEL PROGRAMMA 

JACK-PO T 

PAGINA 

/ 

IDENTIFICAZIONE dalle VARIABILI 
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Baccarà 


Se sognate l’ambiente ovattato ma esaltante del casinò, entrate nel gio¬ 
co e osate maneggiare somme favolose. 

Vi si dà all’inizio della partita un credito di 10.000 lire. Il banco, vo¬ 
stro avversario, estrae quattro carte da una scatola contenente 8 gio¬ 
chi di cinquantadue carte l'uno. Tutte le carte conservano il loro valo¬ 
re nominale dall’asso (1) al nove; le figure e i dieci non valgono nulla. 
Per ottenere il valore totale d’un gioco, si addiziona il valore di ciascu¬ 
na carta tenendo solo le cifre delle unità. 

A ciascuna mano, il calcolatore visualizza le carte e, durante tutto il 
gioco in basso sullo schermo, i movimenti in corso così come la vostra 
puntata e le vostre vincite. 

Ad ogni puntata il banco tiene per sé due carte e le altre due le dà allo 
scommettitore. 

Guardando le vostre carte vi troverete davanti quattro possibilità per 
parlare: 

Avete 8 o 9: cioè una mano naturale: tocca al banco parlare. 

Avete 6 o 7: non prendete altre carte. 

Avete 5: potete scegliere di prendere o no un’altra carta. 

Avete tra 0 e 4: siete obbligati a prendere un'altra carta. 

Solò la terza carta che avete tirato è visibile al banco. Poi parla il ban¬ 
co. Se avete 8 o 9, si confrontano i giochi. Altrimenti il banco ha la 
possibilità di prendere una carta (possibilità determinata da una tabel¬ 
la nel programma). 

A questo punto tutte le carte sono girate; lo scommettitore più vicino 
al 9 ha vinto la partita. 

Schiacciando qualsiasi tasto otterrete le vostre vincite e potrete punta¬ 
re per un’altra partita. 

Il gioco continua fino alla scomparsa del vostro capitale. 


BMCCBRB' 

SCOMMETTITORE BMNCO 


I* 1 

I* 1 

10 1 

14 1 

10 1 

1 1 1 

1 6 1 

1 9 1 

1 X 1 

1 9 1 

1 «1 

1 01 

1 • 1 

1 01 

1 *1 


SCOMMETTITORE: 14456 PUNTRTR: 1234 


•SCOMMETTITORE VINCE 1234U.* 
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Visualizzare 
le carte dello 
scommettitore 
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i 

♦ 

f 


10 REM BACCARÀ 
20 REM-- 

30 R*-CHR*<28> : N*-CHR*(144) : B*-CHR*<3> 

40 C#<l>-N#+"*"+B»:C»<2>-M*+ ,, t*+M ! C*<3>-R«+“#“'*-M:C0<4> 

50 POKE 53280,5 '■ POKE 33281,3 
108 J*-"123436789XVDR" 

110 0-10000 

120 DIM J<13,4>,T*<6> 

130 T*<3>-“TTTTTTTTRTT" 

140 T#<4)-“RRTTTTTTRRT" 

130 T*<3>-"RRRRTTTTRRT" 

160 T* < 6 >-"RRRRRRTTRRR" 

170 PRINT"3 MISCHIO LE CARTE" 

180 FOR 1-1 TO 13 
190 FOR K-l TO 4 
200 JCI,K>-0 
210 NEXT K,I 
220 NC-0 

280 REM- 

290 REM PUNTATA SCOMMETTITORE 
300 PRINT"CPUNTATA<MAX";0;"L.>" 

310 INPUT M 

320 IF M>G OR M<1 THEN 300 

380 REM-- 

390 REM ESTRAZIONE DI 6 CMRTE 
400 FOR 1-1 TO 6 
410 P(I>-0 

420 F»INT<RND<1>013>41 
430 C-INT<RND<1>*4>+1 
440 IF J<F,C»-8 THEN 420 
430 J<F,CW<F,C>41 
460 IF F<10 THEN P<I>-F 
470 8<I,1>-P ! S<I,2>-C 
480 NEXT I 
490 T-P<l)+P<3> 

508 IF T>9 THEN T-T-10 
510 TB-P<2>+P<4> 

320 IF TB>9 THEN TB-TB-10 

380 REM - 

390 REM STRMPfl IL GIOCO 

600 PR1NTVJ BACCARÀ"SPRINT SPRINT 

610 PRINT TAB<13)i“SCOMMETTITORE"'PRINT:PRINTSPRINT SPRINT 

SPRINT SPRINT 

620 PRINT TRB<17);‘'BANCO" SPRINT'PRINT SPRINT SPRINT SPRINT 

■PRINTSPRINT 

630 PRINT "8C0MMETTIT0RE 1 "#0;" PUNTRTM : ;M 

680 REM - 

690 REM SCELTA SCOMMETTITORE 
700 X-10SV—3=1-1 :OOSUB 1600 
710 X-17:1-3 :OOSUB 1600 
720 N-0 

730 IF T09 MND TOS THEN 730 
740 N-l : OOTO 1820 
730 IF T<-3 THEN 800 
760 P<5>-10 

770 M*-" ««COMMETTITORE NO*" 

780 OOSUB 1800 

790 OOTO 1000 

800 IF T-3 THEN 860 

810 M*-"««COMMETTITORE CARTA*" 

828 OOSUB 1800 
830 T-T+P<3> 
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840 IF T>9 THEN T-T-10 
850 00T0 1000 
860 POKE 214,20'PRINT 
870 PRINT"CARTA <82N>"; 

880 OET A0:IF A*-“" THEN 880 
890 IF R4-“S" THEN 830 
980 P<3>-10 

980 REM - 

990 REM SCELTA BRUCO 
1000 IF P<3>-10 THEN 1020 
1010 X»24 : 1*5 !OOSUB 1600 
1020 N»10 : V»10 * 1*2 : OOSUB 1600 
1030 X"17 : I“4 : G08UB 1600 
1840 IF N-l THEN 1300 
1030 IF TB<3 THEN 1110 
1060 IF TB>6 THEN 1088 

I®!? Il WWTK ni.PWHl,».»! 11 THEN 1110 
1080 M0-"«BANCO NO»" 

1090 OOSUB 1800 

1100 GOTO 1300 

1110 M»«"«BANCO CRRTR»" 

1120 OOSUB 1800 

1130 X-24 =1-6-OOSUB 1600 

1140 TB-TB+P<6> 

1130 IF TB>9 THEN TB-TB-10 

1280 REM - 

1290 REM RISULTATI 
1300 IF TOTB THEN 1340 
1310 M*-"*PARI«" 

1320 OOSUB 1800 
1330 QOTO 1420 
1340 IF T>TB THEN 1390 
1330 M#»"«BANCO VINCE*" 

1360 OOSUB 1800 
1370 O-O-M 
1380 OOTO 1420 

1390 M*-"«SCOMMETTITORE VINCE"+8TR*<H>+"L.«" 
1400 OOSUB 1800 
1410 G-O+M 
1420 NC-NC+6 

1430 OET Af.'IF A«»*" THEN 1430 
1440 IF 0<1 THEN 1470 
1430 IF NC>-204 THEN 170 
1460 OOTO 300 
1470 PRINTVr 

2 INTN0RflZIE PER LE DIECIMILA LIRE. " : PRINT 
1483 PRINT"IL CASINO' ACCETTA OLI ASSEGNI!" 

1490 END 

1380 REM - 

1390 REM STAMPA LE CARTE 
1600 POKE 214/V ! PRINT 
1610 PRINT TRB<X>;".-!" 

1620 PRINT TAB<X>;" l";ca< 8 <I/ 2 >>i" I" 

1630 PRINT TAB<X);" I ";MID8<J8,8<I,1),l»i■ I" 
1640 PRINT TAB<X>i"l ■;C«<S<I,2>>;■ I" 

1630 PRINT TAB<X>;"<-- 

1660 RETURN 

1780 REM - 

1790 REM MES8ROOIO 

1800 POKE 214.20 : PRINT 

1810 PRINT TABOS-LENtMai^J/Ma 

1820 POR K-l TO 2080 : NEXT K 

1830 POKE 214/20-PRINT 

1840 PRINT" 

1830 RETURN 
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IL PROGRAMMA 

Dalla riga 30 alla 220: inizializzazione 

Dopo aver definito i caratteri grafici dei quattro colori nella tabella 
C$( ), si introduce nella tabella T$ la decisione che prenderà il banco. 
Ciascuna lista della tabella contiene undici informazioni. Le prime die¬ 
ci corrispondono al valore della carta estratta dallo scommettitore (tra 
0 e 9). La undicesima precisa che lo scommettitore non ha preso carte. 
La lettera T consiglia al banco di estrarre, mentre la lettera R di resta¬ 
re. • 

Ciascuna riga corrisponde al gioco del banco. Sono rappresentate solo 
le soluzioni per : valori comprese tra 3 e 6 perché il banco prende 
sempre una carta quando ha meno di tre punti e rifiuta quando ne ha 
più di sei. 

La tabella J corrisponde alla scatola. È rimessa a zero quando tutte le 
carte sono estratte. 

Dalla riga 290 alla 320: puntata dello scommettitore 

Si scelga la puntata a condizione che non sia superiore al capitale e 
che non sia nulla. 

Dalla riga 400 alla 520: estrazione delle carte 

Si prendono 6 carte dalla scatola, F corrispondente alla figura della 
carta e C al colore. Si incrementa la tabella J di 1; quest’ultima non 
deve mai superare 8 poiché ci sono solo 8 giochi di 52 carte. 

Dalla riga 700 alla 900: scelta dello scommettitore 

Dopo la visualizzazione delle carte dello scommettitore, egli può sce¬ 
gliere una carta solo se il totale dei suoi punti è uguale a 5. 

Negli altri casi, si seguono le regole esposte nell’introduzione di que¬ 
sto capitolo. 

Dalla riga 1000 alla 1150: scelta del banco 

Il banco prende o no una carta seguendo le indicazioni della tabella T$ 
(vedere le spiegazioni della riga 30 alla 220). 

Dalla riga 1300 alla 1490: risultati e fine 

Per i risultati è sufficiente confrontare i giochi dello scommettitore e 
del banco (variabili T e TB). Questi si visualizzano sullo schermo così 
come le vincite dello scommettitore. Se quest’ultimo ha ancora del de¬ 
naro, si continua la partita. 

In questo caso se il numero delle carte già estratte supera il 204, si ri¬ 
mette la tabella J a zero prima di una nuova partita. 



124 Giochi d’azzardo 



ocsouio-* : E:s 
























































Terza corsa 125 


Terza corsa 


Perché privarvi d’assistere direttamente alle corse dei cavalli quando 
piove o fa freddo? 

Prendete il vostro Commodore 64, riunite la famiglia, i vostri amici, e 
le scommesse sono aperte. 

Al massimo 8 giocatori possono scrivere le loro combinazioni di 3 ca¬ 
valli da 1 a 9. 

Poi i vostri favoriti aspettano solamente che si schiacci un tasto per 
lanciarsi nell’ippodromo. 

Il 3, il 5... no, è il 7 che lo segue di una lunghezza. Comunque l'ordine 
d’arrivo si scrive mano a mano in basso allo schermo. 

Quando la corsa è terminata, potete schiacciare su un qualsiasi tasto 
per avere i risultati dei giocatori. 

Per i 3 cavalli nell’ordine, vincete 10 punti; nel disordine 5 punti. Per 2 
cavalli vincenti vincete 2 punti e per un solo cavallo non vincete nien- 
te. 

Ma potete rigiocare subito schiacciando un tasto e nei prossimi risul¬ 
tati avrete il cumulo dei punti nella colonna totale. 

Allora, pronti per una seconda corsa? 






126 Giochi d’azzardo 








Terza corsa 127 


10 REM TERZA CORSA 

20 REM- 

30 PRINTV7* 

40 INPUT"NUM DI SCOMMETTITORI";PA 
90 IF PR>6 THEN 40 
60 PRINT : PRINT 
70 FOR 1-1 TO PA 

00 PRINT"NOME DELLO SCOMMETTITORE";!; 

90 INPUT NS<I> 

100 NEXT I 

180 REM - 

190 REM ACCETTAZIONE SCOMMESSE 
200 C-C+l 

210 PRINT"n CORSA"iC 
220 FOR 1-1 TO PA 
230 PRINT:PRINT 
240 FOR J-l TO 3 

290 PRINT'CAVALLO"JJJ"DI ";LEFT*<N*<I>,9>; 

260 INPUT CU,J> 

270 IF CU,J»9 THEN 290 
280 NEXT J,I 

380 REM - 

390 REM CORSA ... 

400 PRINT-3 CORSA";C : PRINT 

410 FOR 1-1 TO 36 = PRINT"-" j:NEXT I :PRINT 
420 FOR I-i TO 9 
430 PRINT I;"el";TRB<39>;"I" 

440 PRINT» l";TAB<33>;"l - 
490 NEXT I 

460 FOR 1-1 TO 36:PRINT"-"J"NEXT I 

470 FOR 1-1 TO 9iR<I)-0:X<I>«3:NEXT I 

900 OET A0:IF A*-"" THEN 900 

910 PRINT"IP :PRINT ! PRINT 

920 FOR 1-1 TO 18 : PRINT TAB<4>;" "=NEXT I 

600 I-INT<RND<1)*9)+l 

610 IF X<I»39 THEN 600 

620 PONE 214,I«2-PRINT 

630 PRINT TAB<X<I>>;" e" 

640 XCI>-X<I>41 
690 FOR J-l TO 90:NEXT J 
660 IF X<I>-35 THEN 708 
670 DOTO 600 

680 REM - 

690 REM VERIF. ARRIVO 
700 X<I>-X<I>+1 
710 NA-NA-M : R<NA)-I 

720 POKE 214,21=PRINTSPRINT TRB<<NA*2>-1>IIl 
730 IF Nfl<9 THEN 600 

780 REM - 

798 REM RISULTATI 

800 OET A*:IF A*-"" THEN 800 

810 PRINTVJ RISULTATI »• PRINT SPRINT SPRINT 

eae p«imt"d irzaoMGHTo HO" 

830 FOR 1-1 TO 9'PRINT I,R<I>NEXT I 
840 PRINT ! PRINT"NOME CI C2 C3 PT8 TOT." 

890 FOR 1-1 TO PA 

860 NO-8 = T -0 •' TP-0 

870 FOR J-l TO 3 

880 FOR K-l TO 3 

890 IF R<J>OC<I,K> THEN 910 

900 NO-NO-M 

910 IF JOK OR R(J>OC<I,K> THEN 930 
920 T-T-M 
930 NEXT K = NEXT J 
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940 IF T-3 THEN TP-TP+5 
950 IF NO-3 THEN TP-TP+5 
960 IF NO-2 THEN TP-TP+2 
970 P<I>-P<I>+TP 

900 PHINT LEFT*<N*<I>+* •.AH" " JC<I,1> JC<I,2>JC«, 3> 

JTPJ“ -;p<i> 

990 NEXT I 

1000 OET IF P0-“* THEN 1000 
1010 NH-0 
1020 OOTO 200 
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IL PROGRAMMA 

Dalla riga 30 alla 100: inizializzazione 

Si scelgono alla tastiera il numero e il nome degli scommettitori. 

Dalla riga 200 alla 280: scelta delle scommesse 

Dopo l’incremento del numero della corsa, ogni scommettitore forni¬ 
sce a turno la sua combinazione di 3 cavalli. Questi sono posti nella ta¬ 
bella a 2 dimensioni C(,). 

Dalla riga 400 alla 730: corsa 

Dopo il test della tastiera (GET A$), il gioco inizia spostando casual¬ 
mente i cavalli (variabile I). 

La riga 730 testa se tutti i cavalli sono sulla linea d’arrivo. 

Dalla riga 800 alla 1020: risultati 

Questa parte del programma fornisce i risultati aH’arrivo e conta il 
numero di punti guadagnati da ogni scommettitore. 

Quando si schiaccia un tasto del Commodore 64, il programma toma 
alla riga 200 per ima nuova corsa. 
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DATA 

NOME DEL PROGRAMMA CORSA 

PAGINA 

/ 

IDENTIFICAZIONE delle VARIABILI 



VARIABILE 


CONTATORE 


TABELLA 


INDICE 


INDICE 


INDICE 


TABELLA 


CONTATORE 


CONTATORE 


TABELLA 


CONTATORE 


TABELLA 


CONTATORE 


CONTATORE 


TABELLA 


Caranere scelto da GET 


Numero della corsa 


Cavalli giocati da ogni scommettitore 


Ciclo FOR/NEXT 


Oclo FOR/NEXT 


Odo FOR/NEXT 


Nomi degli scommettitori 


Numero d'arrivo 


Numero del cavalli nell'ordine 


Totale dei punti (cumulo di tutte 
le corse> _ 


Numero di scommettitori 


Tabella d'arrivo 


Numero di cavalli nel disordine 


Totale dei punti dell'ultima corsa 


Posizione dei cavalli durante la corsa 




fflpfoduztone vietai» e EdNai 
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Generatore di sprites 


Questo programma permette di ottenere i valori decimali di una figura 
disegnata sullo schermo per utilizzarli successivamente nei vostri pro¬ 
grammi che facciano uso di SPRITES. 

Schiacciando il tasto M, potrete cambiare la funzione ottenendo le se¬ 
guenti: Nero = scrivere in nero, Bianco = scrivere in bianco (si inten¬ 
de lo sfondo dello schermo), Spostamento = niente (permette di posi¬ 
zionarsi sullo schermo senza cambiare il valore di quello che c’è). Il ta¬ 
sto D visualizza il calcolo dei valori decimali della figura (si vedono a 
destra dello schermo). Quando tutti i calcoli sono effettuati lo sprite 
che avete disegnato si sposterà continuamente da sinistra a destra in 
basso dello schermo. 

Per spostarsi sulla griglia, si utilizzano le quattro frecce della tastiera. 
Tutto ciò permette di creare rapidamente il disegno di uno sprite per i 
vostri programmi senza utilizzare né carta né penna! 
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10 REM GENERATORE PI 8 PRITES 

20 REM - 

30 POKE 2840,13'POKE 33269,l'POKE 33287.1 
90 M0<1SPOSTAMENTO" : M*<2>-"NER0 
100 C-186:X-12:V-10 

180 REM - 

190 REM DISEGNO DEL GENERATORE 
200 PRINTVr;:POKE 33200,2 : POKE 33281.2 
218 PRINT" 



":H*<3>-"*IANC0" 


■ il i »■i'iilil l l I P 


220 FOR 1-1 TO 21 
230 PRINT" U-lJUJil 
240 NEXT I 
370 GOTO 1000 

380 REM - 

390 REM SPOSTAMENTI 

400 POKE 33248.120+P:POKE 33249,228'P-P+I=IF P>133 THEN P-0 
410 OET A0JIF AS-“" THEN 400 
420 IF A*-"M" THEN 1000 

430 POKE 214,V-l:PRINT:PRINT TAB<X>;:IF C-32 

THEN PRINT CHR*<18>; 

440 PRINT CHR*<C> 

430 IF THEN 2000 

460 IF A»-CHRS<137> THEN X-X-l‘IF X-0 THEN X-24 
470 IF A*-CHR*<29> THEN X-X+l=IF X-23 THEN X-l 
480 IF A»-CHR*<143> THEN V-V-l=IF V-0 THEN V-21 
490 IF A»-CHR*<17> THEN V-V+l-'IF V-22 THEN V-l 
300 IF M-2 THEN C-32:GOTO 330 
310 IF M-3 THEN C-186:Q0T0 330 
320 C—186 : IF PEEK<1024+X+Y*405-160 THEN C-32 
330 POKE 214,V-l:PRINT:PRINT TAB<X>iCHR#<113> 

340 GOTO 400 

980 REM - 

990 REM CAMBIAMENTO DI FORMR 

1000 M-M+l ! IF M—4 THEN M-l 

1010 POKE 214,23-PRINT:PRINT M*<M>; 

1020 GOTO 330 

1980 REM - 

1990 REM VALORI DECIMALI 
2000 S-832 : FOR 1-1 TO 21 
2010 FOR J-l TO 17 8 TEP 8 
2020 D-0 

2030 FOR K-0 TO 7 

2040 IF PEEK<1024*J+K+1*40>-160 THEN D-D+2t<7-K> 

2050 NEXT K:POKE 214,1-1=PRINT:PRINT TAB<23+J/2>;Di"• 

"■POKE S,D ; 8 -S*l 

2060 NEXT J:PRINT:NEXT I 
2070 GOTO 330 
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IL PROGRAMMA 

Dalla riga 30 alla 370: inizializzazione 

Si pongono nella tabella M$ i nomi delle tre funzioni (nero, bianco e 
spostamento). 

Le variabili X e Y danno le coordinate del punto di partenza. 

Le righe dalla 200 alla 370 visualizzano sullo schermo, in caratteri se¬ 
mi-grafici, il disegno dell'utilità, si salta direttamente alla riga 1000 
per inizializzare le funzioni (spostamento per l’inizio). 

Dalla riga 400 alla 540: spostamento del cursore 

Questa parte del programma testa la tastiera e sposta il cursore sullo 
schermo lasciando dietro a lui una traccia bianca o nera secondo la 
funzione in corso, o sostituisce i vecchi colori se si tratta di una fun¬ 
zione di spostamento. 

Dalla riga 1000 alla 1020: cambiamento di funzione 

Si incrementa semplicemente la variabile M per dei valori che vanno 
da 1 a 3. 

Dalla riga 2000 alla 2070: decimali 

Si calcola a partire dallo schermo (tastato da PEEK) i valori decimali 
dei caratteri grafici. Questi valori posti nella variabile D sono visualiz¬ 
zati sullo schermo poi caricati nella memoria dello SPRITE. 
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DATA 

NOME DEL PROGRAMMA 

GENERATORE DI SPRITES 

PAGINA 

/ 

IDENTIFICAZIONE delle VARIABILI 




VARIABILE 


VARIABILE 


CONTATORE 


INDICE 


INDICE 


INDICE 


VARIABILE 


TABELLA 


VARIABILE 


VARIABILE 


VARIABILE 


VARIABILE 


Carattere battuto sulla tastiera 


Colore del punto sopra il cursore 




rittir* 


latore Dinario per u c 
dei valori decimali 


Ciclo FOR/NEXT 


Odo FOR/NEXT 


Odo FOR/NEXT 


Funzione in corso 


Nome delle funzioni 


Posizione dello SPRITE sullo schermo 


Indirizzo memoria dello SPRITE 


Coordinate del cursore 


RlprcduzIorM «Mata e Editai 
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Lavoro a maglia 


Indispensabile a tutte le "amanti della maglia", questo piccolo pro¬ 
gramma permette di conoscere rapidamente e senza calcolo, il numero 
di maglie o di righe da montare e lavorare, e d’adattare così a tutte le 
taglie le spiegazioni di lavori a maglia con misure standardizzate. 

È sufficiente inserire il numero di maglie e di righe di un campione la¬ 
vorato di 10 cm per 10, le misure diverse del dietro e del davanti (lar¬ 
ghezza alla base, larghezza dopo la diminuzione delle maniche, altezza 
sotto le braccia, altezza totale) e le misure delle maniche (larghezza pu¬ 
gno, larghezza alla spalla, altezza alla spalla, altezza totale). 

Quando tutti i dati sono immessi nel Commodore 64, il programma 
stampa il numero di righe da montare e il numero di maglie da lavora¬ 
re di tutte le parti del lavoro. 


•MONTAGGIO DIETRO 0 DAVANTI» 

-MONTARE 336 MAOLIE, CHE SIANO 86 CM. 

-LAVORARE 136 RIOHE, CHE 9IAN0 34 CM. 

-A 34 CM, DIMINUIRE DA OONI PARTE 33 
MAOLIE, PIU' VOLTE, PER OIROMANICA 

-LAVORARE ANCORA 224 RIONE- CHE SIANO 
86 CM. 

-A 90 CM, CHIUDERE SECONDO IL MODO 
USUALE 

•MONTAOOIO DELLE MANICHE* 

-MONTARE 2A4 MAOLIE, CHE SIANO 34 CM. 

-LAVORARE 224 RIOHE, CHE SIANO 86 CM 
AUMENTANDO REGOLARMENTE 
OONI PARTE DI-36 MAOLIE. “ 

-A 86 CM, DIMINUIRE LE 132 MAGLIE 
IN MODO CHE RESTINO 66 
MAOLIE DA OONI PARTE. 

-A 66 CM, CHIUDERE IL LAVORO. 
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10 REM LAVORO n MAGLIA 

20 REM - 

30 PRINT"n CAMPIONE 10 CM SU 10 CM"sPRINTsPRINT 

40 INPUT-NUMERO DI MAGLIE “;M1 
30 INPUT-NUMERO DI RIGHE ";R1 
6 A M2-M1/10 
70 R2-R1Z10 

90 REM MISURE DAVANTI E DIETRO 

100 INPUT"LARGHEZZA DIETRO/DAVANTI ALLA BASE “ILI 

110 INPUT-LARGHEZZA PETTO ";L2 

120 INPUT-ALTEZZA SOTTO LE BRACCIA ";H1 

130 INPUT"ALTEZZA TOTALE DIETRO/DAVANTI ";H2 

140 N1-INT<M2*L1> 

130 N2"INT < M2ML2) 

160 N3-INT<R2*H1> 

170 N4-INT<R2*H2> 

100 D-INT<<Nl-N2>/2> 

190 REM - 

200 REM MISURE MANICHE 

210 INPUT"LARGHEZZA PUGNO PI 

220 INPUT-LAROHEZZA MANICA ALLA SPALLA *»E1 

230 INPUT-ALTEZZA MANICA ALLA SPALLA ";H3 

240 INPUT“ALTEZZA TOTALE MANICA ";H4 

230 P2-INT<M2*P1> 

260 E2-INT<M2*E1> 

270 N3-INT<R2*H3> 

2A0 N6-INT<R2«H4> 

290 A-INT<<E2-P2)/2) 

300 REM - 

310 REM RISULTATI DIETRO E DAVANTI 
320 PRINT-m «MONTAGGIO DIETRO 0 DAVANTI*-'PRINT 
330 PRINT"-MONTARE";Nlj"MAGLIE. CHE SIANOGLIJ"CM." 
340 PRINT--LAVORARE";N3;"RIGHE* CHE SIANO-;H1;"CM." 
330 PRINT--A"; HIJ"CM, DIMINUIRE DA OONI PARTE"JD 
360 PRINT - MAGLIE, PIU' VOLTE, PER GIROMANICA" 

380 N7-N4-N3 
390 C-H2-H1 

400 PRINT"-LAVORARE ANCORA";N7;"RIGHE, CHE SIANO" 

410 PRINT C;"CM." 

420 PRINT"-A-;H2;"CM, CHIUDERE SECONDO IL MODO 

"SPRINT" USUALE" 

430 REM - 

440 REM RISULTATI MANICHE 

450 PRINTSPRINT" «MONTAGGIO DELLE MANICHE*"'PRINT 
460 PRINT"-M0NTARE*;P2;"MAGLIE, CHE SIANO"; PI i "CM." 
470 PRINT"-LAVORARE";N3J"RIGHE, CHE SIANO";H3;"CM" 

480 PRINT" AUMENTANDO REGOLARMENTE" 

490 PRINT" OONI PARTE DI"JA;"MAGLIE." 

500 N8-(P2-KA*2>> 

310 N9-INT<N8/2> 

320 PRINT"-A";H3;"CM, DIMINUIRE LE";N8;"MAGLIE" 

330 PRINT" IN MODO CHE RESTINO";N9 
348 PRINT" MAOLIE DA OONI PARTE." 

330 PRINT"-A";H4;"CM, CHIUDERE IL LAVORO." 
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[nome del programma 


LAVORO A MAGLIA 


PAGINA 

/ 


IDENTIFICAZIONE delle VARIABILI 



VARIABILE 


VARIABILE 


VARIABILE 


VARIABILE 


VARIABILE 


VARIABILE 


VARIABILE 


VARIABILE 


VARIABILE 


VARIABILE 


VARIABILE 


VARIABILE 


VARIABILE 


VARIABILE 


VARIABILE 


VARIABILE 


VARIABILE 


VARIABILE 


VARIABILE 


VARIABILE 


VARIABILE 


VARIABILE 


VARIABILE 


VARIABILE 


VARIABILE 


INDICE 


Numero di maglie per 10 cm 


Numero di righe per 10 cm 


Numero di maglie per 1 cm 


Numero di righe per 1 cm 


Larghezza dietro o davanti 


Larghezza al petto 


Altezza sotto il braccio 


Altezza totale dietro o davanti 


Numero di maglie larghezza dietro 
o davanti _ 


Numero di maglie larghezza petto 


Numero di righe altezza sotto il braccio 


Numero di nnhe altezza totale dietro 
o davanti _ 


Diminuzioni giromanica da ogni parte 


Larghezza pugno _ 


Larghezza spalle 


Altezza spalla 


Altezza totale 


Numero di maglie pugno 


Numero dì maglie alla spalla 


Numero di righe alla spalla 


Numero di righe altezza totale 


Aumento manica da ogni parte 


I w»r, 


,ra la spaila e 
dietro o davanti 


Numero di maglie alla spalla della 
manica _ 




C/c/o FOR/NEXT 


mproduztona vMtatm O Edita 
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Speranza di vita 


Forse non lo sapete, ma quando domandate ai moderni veggenti quan¬ 
to tempo vivrete non vi rispondono più alla leggera. 

Calcolano coscienziosamente la vostra speranza di vita grazie a un cal¬ 
colatore discretamente sostituito alle loro sfere di cristallo. 

Il calcolatore utilizza il test molto serio che vi è proposto nelle pagine 
seguenti. È stato messo a punto da un medico inglese dopo le informa¬ 
zioni d'ordine privato chieste dagli assicuratori ai loro clienti. 

Questo test si basa sul principio di una speranza di vita corrisponden¬ 
te ad ogni età (71 anni se si hanno 30 anni, 73 anni se si hanno 50 an¬ 
ni...). Ma dei criteri negativi (abuso di tabacco, di alcool...) o positivi 
(lunghe dormite, longevità dei parenti) possono allungare o accorciare 
la speranza di vita di molti anni. Naturalmente questo resta dominio 
delle statistiche, ogni storia umana è unica ed imprevedibile! Ma si 
può meditare.... 


SPERANZA DI VITP 
DOMANDA 4 

1 -HOT un prrente porto per uno crisi 

CPRDIPCR PRIPP DI 5« ANNI 

2 -DI UNP EMBOLIA 0 ARTERIOSCLEROSI 

PRIMA DI SS ANNI 

3 -MORTO TRA I 50 E I 60 PNNI 

4 -MORTO DI DIABETE PRIMA DEI 60 ANNI 

5 -MORTO DI CANCRO ALLO STOMACO PRIMA 

DI 60 ANNI 

6 -NESSUNO 

RISPONDI CON UN NUMERO TRA 1 E 6 ? 
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la tua età 


<15o >80 


Calcolare 
speranza di 
vita Iniziale 


N = numero 
di domande 


Lettura 
di n domande 
e n anni 


Visualizzare 
la domanda 


la risposta 
al o no In RS 


Immettere 
la tua scelta 
- R 


R$< >’0* 
O < > “N” 


SI ^^R<1 

-C oR>N 

\ > 


R$ = ‘0* 
7 


Speranza = 
speranza + A/R) 


Speranza = 
speranza + A(1) 


2 
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10 REM SPERANZA DI VITA 


30 PRINT“3 SPERANZA DI VITA" : PRINT ; PRINT 

40 INPUT“LA TUA ETÀ'"; AOE 

50 IF A0E<15 OR AQE>80 THEN 30 

60 IF AOE<41 THEN E-70.7+<AG£-13>*<1.8/23) 

70 IF AOE>40 AND AOE<60 THEN E-72.6+<AOE-41>*<3.4/10> 

80 IF R0E>59 THEN E-76.3+<AOE-60>*<9.4/20) 

90 REM - 

100 REM INTERPRETAZIONE DELLE DOMANDE 

110 FOR 1-1 TO 14 

120 PRINT-3 SPERANZA DI VITA" 

130 READ N 

148 FOR J-l TO N 

150 READ A<J).Q»<J> 

160 NEXT J 

170 PRINT SPRINT "DOMANDA "j SPRINT 

180 FOR J-l TO N 

190 PRINT j;“-";q*<j> 

200 NEXT J 

210 IF N>1 THEN 270 

220 PRINT ; PRINT"RISPONDI 81 0 NO ?" 

230 OET R*=IF R*-“" THEN 230 

240 IF R*0"8" AND WO"N" THEN 230 

230 IF R»-"8" THEN E-E+A<1) 

260 GOTO 310 

270 PRINT;PRINT"RISPONDI CON UN NUMERO TRA 1 E’iNJ"?" 

280 OET R* : IF R*«"" THEN 280 

290 R-VALCR0) ! IF R<1 OR R>N THEN 280 

300 E-E+A<R> 

310 NEXT I 

320 REM - 

330 REM RISULTATI 

340 PRINT-3 SPERANZA DI VITA":PRINT:PRINT:PRINT 

330 PRINT" LA TUA SPERANZA DI VITA E'":PRINT 
360 PRINT" DI"JINT<E>;"ANNI" 

370 OET A*>IF A#-"" THEN 370 
380 RUN 

390 REM--- 

400 REM DATI DELLE DOMANDE 
410 DATA 1,3,“SEI UNA DONNA" 

420 DATA 1,1,"UNO DEI TUOI NONNI HA VISSUTO 80 ANNI 0 PIU'" 
438 DATA 4,4,"TUA MADRE HA VI8SUT0 PIU' DI 80 ANNI" 

440 DATA 2,"TUO PADRE HA VISSUTO PIU' DI 80 ANNI" 

450 DATA 6,"ENTRAMBI ",0,"NESSUNO" 

460 DATA 6,-4 

470 DATA "HAI UN PARENTE MORTO PER UNA CRISI CARDIACA 

PRIMA DI 50 ANNI" 

480 DATA -4,"DI UNA EMBOLIA 0 ARTERI0SCLER08I 

PRIMA DI 30 ANNI" 

498 DATA -2,"MORTO TRA I 30 E I 60 ANNI" 

500 DATA -3,"MORTO DI DIABETE PRIMA DEI ANNI" 

310 DATA -2,"MORTO DI CANCRO ALLO STOMACO PRIMA DI 60 ANNI 

520 DATA 0,"NESSUNO" . ... _ _ 

530 DATA 4,-9,"HAI FUMATO PIU' DI 40 SIGARETTE PER GIORNO 
540 DATA -7,"TRA 20 E 40 SIGARETTE" 

530 DATA -2,"MENO DI 20 8I0ARETTE" 

560 DATA 0,“NON FUMI" 

580 DATA “HAI DEI RAPPORTI SESSUALI 1 0 2 VOLTE I^ ^TtMANA" 
590 DATA 1,2, "EFFETTUI UN ESAME MEDICO CO MPLET O TUTTI OLI ANNI 
600 DATA 1,-2,"HAI SUPERATO IL TUO PESO FORMA" 
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1 


610 DATA 1,-2,"DORMI PIU' DI 10 ORE PER MOTTE 0 rENO DI 3" 
620 OPTA 3,3 

630 DATA "BEVI MODERATAMENTE <1/2 LITRO DI VINO 0 4 BICCHIERI 

DI BIRRA)" 

640 DATA 0,"NON BEVI" 

650 DATA -0,"BEVI MOLTO" 

660 DATA 1,3,"FAI GINNASTICA TRE VOLTE LA SETTIMANA" 

670 DATA 3,3,"SEI UN EX-UNIVERSITARIO" 

680 DATA 2,"SEI UN MATURANDO" 

690 DATA 0,"NE' L'UNO NE' L'ALTRO" 

700 DATA 2,1,"SEI UN CITTADINO" 

710 DATA —1,“SEI UN CAMPAGNOLO" 

720 DATA 3,1,"SEI SPOSATO 0 CONVIVI" 

730 DATA -9,"SEI SOLO" 

740 DATA -7,“SEI VEDOVO" 

730 DATA -4,"DONNA SEPARATA 0 DIVORZIATA" 

760 DATA -3,"DONNA VEDOVA" 
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IL PROGRAMMA 

Dalla riga 30 alla 80: inizializzazione 

La speranza di vita iniziale (variabile E) è calcolata secondo una curva 
statistica per delle età che vanno dai 15 agli 80 anni. Per seguire il più 
possibile questa curva, si effettua una divisione in 3 settori: da 15 a 40 
anni, da 41 a 59 anni, da 60 a 80 anni. 

Dalla riga 110 alla 310: interpretazione delle domande 

Tutte le domande sono poste nei DATA delle righe dalla 410 alla 760. 
La prima fornisce il numero di risposte possibili (variabile N), e gli N 
DATA che seguono, le domande e il numero di anni da togliere o da ag- 

Nel caso di una sola domanda (risposta con SI o NO), la tabella A è 
presa in considerazione solo se la risposta è SI. 

Dalla riga 340 alla 380: risultati 

Queste righe stampano sullo schermo la vostra speranza di vita (varia¬ 
bile E). 

Se ottenete un numero di anni inferiore alla vostra età attuale, avete 
sicuramente mentito da qualche parte! 
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NOME DEL PROGRAMMA 

SPERANZA DI VITA 


IDENTIFICAZIONE delle VARIABILI 


PAGINA 

/ 



VARIABILE 

Hll« 

VARIABILE 

EMISI 

TABELLA 

lem 

CONTATORE 

lem 

INDICE 

lem 

INDICE 

lem 

VARIABILE 

■em 

TABELLA 

lem 

VARIABILE 

EMISI 

VARIABILE 

BIIII 


Carattere scelto da GET 


Età attuale dell'utilizzatore 


Speranza di vita 


Ciclo FOR/NEXT 


Ciclo FOR/NEXT 


Numero di risposte possibili 


Domande 


Risposta dell'utilizzatore (numerica) 


































Cucina 


Cucina 


149 


Ecco il modo infallibile per preparare dolci straordinari sempre diver¬ 
si l’uno dall'altro. 

Molto semplice! Schiacciate il tasto RUN e in qualche secondo il vo¬ 
stro calcolatore stamperà sullo schermo una ricetta inedita di dolce al 
cioccolato e alle noci. 

Dovrete allora semplicemente riunire tutti gli ingredienti la cui lista vi 
è fornita, e seguire le istruzioni di preparazione. 

Quando il vostro dolce sarà cotto, potrete gustarlo con la bevanda 
scelta dal Commodore 64, vino o sidro... 

Un piccolo consiglio: per scongiurare gli eventuali scherzi del calcola¬ 
tore, verificate che la combinazione di tutti gli ingredienti della ricetta 
sia verosimile. 

Altrimenti basterà schiacciare su un qualsiasi tasto per ottenere una 
nuova ricetta. 

Buon appetito! 



RICETTA 

FAR INR 

•• 100 OR AM. 

ZUCCHERO 

! 50 DRAM. 

LATTE 

> 20 CL 

UOVA 

: 2 

MELE 

l 400 ORAM. 

CREMA 

i 25 ORAM. 

BURRO 

! 100 ORAM. 

MANDORLE 

: 100 ORAM. 

MISCHIARE FARINA,ZUCCHERO-LATTE E UOVA P 

ER OTTENERE LA 

PA8TA.A00IUNOERE MELE,CRE 1 

MA,BURRO E MANDORLE.IMBURRARE UNO STAMPO 

E METTERVI LA 

PASTA OTTENUTA.METTERE LO 

STAMPO IN UN FORNO A 140 ORADI.LASCIARE 

CUOCERE 40 AIMUTI.GUSTARE QUESTO DOLCE 

CON DEL SIDRO. 
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inizializzazione 
dotte tabelle 


Porre gli elementi 
nelle rispettive 
tabelle 


Riempire 
la tabella 
di unità US 


Riempire 
la tabella 
di bevande B$ 


Stampare farina 
e zucchero con 
quantità casuali 


NL = numero 
casuale di liquidi 


Stampare NL liquidi 
con quantità casuali 


NS = numero casuale 
di solidi 


Stampare NS solidi 
con quantità 
casuali 


Stampare ricetta: 
farina, zucchero, 
liquido, solido 


Stampare gradi 
e tempo di cottura 


Stampare 

bevanda 


Fine 
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"■J-"»J 

10 REM CUCINA 

20 REM - 

30 DIM C$(24>,Q<24}, U<24),A<24> 

40 DATA FARINA,100.2,3.ZUCCHERO/30-2.2,ACQUA,10,4,2*LATTE, 

10,4,2,UOVA,1,1,3 

50 DATA VANIGLIA,.5,5»2,BIANCO UOVO,1,1,3,OLIO,1,3,2,BURRO, 

30.2.2, LIEVITO,«3,3,2 

60 DATA UVA S. ,30,2,2,RHUM,.3,6.1,COGNAC,.3,6,1,NOCI,30, 

2.2, NOCCIOLINE,30,2,2 

70 DATA CIOCCOLATO,30,2,2,GIALLO UOVO,1,1,2,UOVO A NEVE, 

1,1,3,MELE.200,2,2 

00 DATA CILIEGE,100,2,2,SALE,1,7,2,MANDORLE,30,2,2,FRUTTA , 

30,2,2,CREMA,23,2,2 

90 DATA ,GRAM.,CUCC.,CL.SHCCH.,BICCH.,PIZZ. 

100 DATA VINO RQ880,VINO BIANCO,SIDRO,CHAMPAGNE,SUCCO 

D'ARANCIO,VINO COTTO 

180 REM - 

190 REM LETTURA INGR. 

200 FOR 1-1 TO 24 

210 READ CS<I>,Q<I>,U<I>,A(I> 

220 NEXT I 
238 FOR 1-1 TO 7 
240 READ U*<I> 

230 NEXT I 
260 FOR 1-1 TO 6 
270 READ B*<I> 

280 NEXT I 

380 REM - 

390 REM ELEMENTI BASE 

400 PRINT-3 RICETTA"'PRINT 1 PRINT 

410 NE-1 : GOSUB 1000 

420 NE-2 : OOSUB 1000 

430 NL-INT<RND<1)*2>+1 

440 FOR 1-1 TO NL 

450 NE-INT<RND<l>W3>+3 

*60 IF 1-1 THEN 480 

470 IF NE-L<1> THEN 430 

480 OOSUB 1000 

490 L<I>-NE 

500 NEXT I 

380 REM - 

390 REM ELEM. DOLCE 
600 NS-INT<RND<l>*3>+3 
610 FOR 1-1 TO NS 
620 NE-INT<RND<l>*19)+6 

630 IF 1-1 THEN 670 

640 FOR J-l TO 1-1 

630 IF NE«S<J> THEN 620 

660 NEXT J 

670 GOSUB 1000 

680 S<I>-NE 

690 NEXT I 

780 REM - 

790 REM RICETTA 

800 PRINT : PRINT •' PRI NT "MI SCHIARE FARINA, ZUCCHERO"; 

810 IF NL-1 THEN 840 

820 PRINT ",";c»<L<l>>;" E ";c*<L<2>>; 

830 GOTO 838 

840 PRINT" E ";C*<L<1>>; 

830 PRINT" PER OTTENERE LA PASTA."; 

860 PRINT"AGGIUNGERE ";C*<8<1>>; 

870 FOR 1-2 TO NS-1 
880 PRINT ",";CBCS<I»>; 

090 NEXT I 

900 PRINT " E ";»<S<N8>>;"."; 
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'■J -'"»3j 

910 PRINT"IMBURRARE UNO STAMPO E METTERVI LA PASTA OTTENUTA.“> 

920 PRINT"METTERE LO STAMPO IN UN FORNO A";100>O0*INT<RND 

<l)#6)>i"ORADI.“> 

930 PRINT"LASCIARE CUOCERE";30+<5*INT<RNDCl>»7>>;“MINUTI."1 
940 PRINT“GUSTARE QUESTO DOLCE CON DEL "> BR<INT<RND<D 

950 OET A# : IF A#-"" THEN 950 
960 GOTO 400 

980 REM - 

990 REM CALCOLO INOR. 

1000 QU-Q<NE>*INT<RND<l>àA<NE>41> 

1010 IF QU-.5 THEN .1040 

1020 PRINT TAB<5>iC*<NE)iTAB<21>i"i";0U;U»<U<NE>> 

1030 RETURN 

1040 PRINT TAB<5> i Cà<NE> »TAB<21>»" ! 1/2 "JU«<U<NE>> 

1050 RETURN 
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IL PROGRAMMA 

Dalla riga 30 alla 280: lettura degli ingredienti 

Tutti gli elementi dei DATA delle righe dalla 40 alla 100 sono posti nel¬ 
le tabelle rispettive (vedere identificazione delle variabili). 

Dalla riga 400 alla 500: elementi di base 

La farina e lo zucchero sono i 2 elementi indispensabili alla pasta. Si 
chiama dunque sempre il sottoprogramma delle righe dalla 1000 al¬ 
la 1050 per questi 2 elementi. 

Si aggiungono, per completare questa pasta, 1 o 2 elementi liquidi. 11 
numero di liquidi è determinato dalla variabile NL. Quando sono uti¬ 
lizzati 2 elementi liquidi, si verifica che non si tratti degli stessi. 

Dalla riga 600 alla 690: elementi del dolce 

Poi è il turno degli elementi solidi. Si utilizza la stessa procedura dei 
liquidi. Ogni solido è posto nella tabella S per la verifica dei doppi. 
Questa tabella sarà anche utilizzata per la stampa del testo della ricet¬ 
ta (righe dalla 860 alla 880). 

Dalla riga 800 alla 960: ricetta 

Ogni elemento liquido e solido è ripreso nel testo della ricetta. 2 nume¬ 
ri casuali danno il tempo di cottura e la temperatura. Poi si stampa 
imo degli elementi della tabella delle bevande. 

Dalla riga 1000 alla 1050: sottoprogramma 

La variabile NE corrisponde al numero di elementi da stampare. La 
quantità da utilizzare è compresa tra una base (tabella Q) e questa ba¬ 
se moltiplicata per il numero casuale massimo (tabella A). Nel caso in 
cui si ottenga il valore 0,5, la riga 1040 stampa il messaggio M/2*. 
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DATA 

NOME DEL PROGRAMMA 

PAGINA 

/ 

IDENTIFICAZIONE delle VARIABILI 


é 



TABELLA 


VARIABILE 


TABELLA 


TABELLA 


INDICE 


INDICE 


TABELLA 


VARIABILE 


CONTATORE 


CONTATORE 


TABELLA 


VARIABILE 


TABELLA 


TABELLA 


TABELLA 



re massimale casua 
per ogni ingrediente 


Carattere scelto da GET 


Usta delle bevande 


Usta dei componenti 


Ciclo FOR/NEXT 


Ciclo FOR/NEXT 


Usta di elementi liquidi 


Numero di elementi da stampare 


Numero di liquidi 


Numero di solidi 


Usta delie quantità di base 
di ogni elemento 


Quantità da utilizzare 


Usta dei solidi 


Usta delle unità 


Nome delle unità 
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Pronostici 


Giocate ai cavalli e vi lanciate in calcoli fastidiosi per fare la sintesi 
degli arrivi dei vostri pronosticati favoriti? 

Non impazzite più tra i numeri; chiedete semplicemente l’aiuto del vo¬ 
stro Commodore 64. 

Immettete il numero di cavalli della corsa, il numero di pronostici in 
vostro possesso e il numero di cavalli minimo comune a tutti i prono- 
stici. 

Un breve tempo di riflessione e il calcolatore vi dà i cavalli che hanno 
più chance di arrivare tra i primi 4, così anche il totale dei punti otte¬ 
nuti in ogni pronostico dopo l’ordine di classificazione. 

Dopo i risultati vi rivelerà anche 4 terzine possibili. 

Allora perché non provare... almeno una volta! 


PRONOSTICI 


PIRZZ. CAVALLO 

PUNTI 

1 3 

2 

2 2 

1 

PUOI PUNTARE SUL 

1 

3 2 

1 

2 1 

0 

1 A 

3 

e 3 

2 
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itr -^ 

10 REM PR0N08TICI 

20 REM - 

30 DIM P<30>,R<30> 

40 PRINT".?' 

50 INPUT"NUM. DI CAVALLI"iNC 
60 IF NC>3@ THEN 40 
70 FOR I»1 TO NC 
80 R<I>-I 
90 NEXT I 
100 PRINT 

110 INPUT'NUM. DI PRONOSTICI-JN 
120 PRINT 

130 INPUT"NUM. DI CAV./' PRONO. “;CP 
140 PRINT"3" 

130 FOR 1-1 TO N 

160 PRINT"PR0N08TICI NUM."Il 

170 FOR J-CP TO 1 8TEP-1 

180 PRINT-NUM. DEL CAVALLO";CP+1-Jj 

190 INPUT NP 

200 IF NP>NC THEN 180 

210 P<NP>-P<NP>+J 

220 NEXT J 

230 PRINT:PRINTSPRINT 
240 NEXT I 

280 REM - 

290 REM SCELTA 
300 FOR 1-1 TO NC-1 
310 FOR J-I+l TO NC 
320 IF P<J><P<I> THEN 390 
330 A-PU> 

340 PCJ>-P<I> 

330 P<I>-A 
360 A-R<J> 

370 R<J>-R<I> 

380 R<I>«A 
390 NEXT J 
400 NEXT I 

480 REM - 

490 REM RISULTATI 

500 PRINT-3 PRONOSTICI"SPRINT SPRINT 

310 PRINT" PIA22. CAVALLO PUNTI" 

320 FOR 1-1 TO NC 
330 IF P<I>»0 THEN 330 

340 print trb<7>;i;tab<13>jr<i>;tab<23>;p<I> 

330 NEXT I 
360 PRINTSPRINT 

370 PRINT" PUOI PUNTARE SUL s"SPRINT 

380 FOR 1-1 TO 4 

390 FOR J-0 TO 2 

600 IF J+I>4 THEN 638 

610 PRINT TAB<7+J*8>;R<J+I> > 

fon nnm uà 

630 PRINT TAB<7+J88>;R<J+I-4>; 

640 NEXT J 
630 PRINT 

cffl UCVT T 

670 OET A*sIF A*-"* THEN 670 
680 CLR 
690 BOTO 30 

^ 
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IL PROGRAMMA 

Dalla riga 30 alla 240: scelta dei parametri 

Dopo la scelta del numero di cavalli, del numero di pronostici e del 
numero di cavalli per pronostico, il programma vi domanda i numeri 
dei cavalli, nell’ordine proposto dai vostri giornali preferiti. 

Si pongono allora nella tabella P i punti ottenuti, il primo cavallo che 
ottiene il massimo (7 punti se ci sono 7 cavalli per pronostico). 
All’inizializzazione, la tabella R contiene i numeri dei cavalli nell’ordi¬ 
ne di partenza (R(l)= 1, R(2)=2...). 

Dalla riga 300 alla 400: scelta 

Questa parte del programma sceglie le 2 tabelle mettendo i cavalli in 
ordine crescente secondo i punti ottenuti. 

La tabella R si trova allora nell'ordine d’arrivo (presunto!). 

Si tratta di una scelta fatta con il metodo Bubble Sort. Consiste nel 
comparare il primo elemento della tabella T con tutti gli altri elemen¬ 
ti, effettuando un’inversione ogni volta che questi sono più piccoli. Il 
più piccolo elemento è così posto all'inizio della tabella. Si effettua la 
stessa operazione con il secondo elemento, e così di seguito fino alla 
classificazione completa. 

Dalla riga 500 alla 690: risultati 

Il programma stampa sullo schermo la lista dei cavalli nell’ordine con 
i loro numeri e il numero di punti che hanno ottenuto, se superiori 
a 1. 

Le righe dalla 580 alla 660 considerano solo i primi 4 e propongono 4 
soluzioni per le vostre terzine effettuando delle combinazioni. 



Prono* tici 159 



NOME DEL PROGRAMMA 


PRONOSTICI 


PAGINA 

/ 


IDENTIFICAZIONE delle VARIABILI 


fi 



VARIABILE 


CONTATORE 


INDICE 


INDICE 


CONTATORE 


CONTATORE 


VARIABILE 


TABELLA 


TABELLA 


Utilizzata per la scelta delle tabelle 


Numero ai cavalli per pronostico 


Ciclo FOR/NEXT 


Ciclo FOR/NEXT 


Numero di propostici 


Numero di cavalli 


Numero del cavallo 


Punti di ogni cavallo 


Ordine d'arrivo pronosticato* 
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Bilancio familiare 


A partire dal totale delle vostre spese e dalle singole spese che gli indi¬ 
cherete, il Commodore 64 vi indicherà la percentuale del bilancio che 
consacrate alle tasse, all'affitto, alla macchina, alle vacanze, ai vestiti, 
al nutrimento, alle feste, ai divertimenti e all'assicurazione. 

Immessa l'ultima spesa, il calcolatore disegna l'istogramma del vostro 
bilancio familiare identificando ogni rettangolo. Le percentuali sono 
richiamate alla destra dello schermo. 

Nel caso in cui volete modificare una somma, dovete schiacciare il ta¬ 
sto RETURN. Il questionario che appare è vuoto solo apparentemente, 
infatti contiene sempre i dati precedenti. 

Basterà proporre una nuova somma per le eventuali modifiche o pas¬ 
sare alla spesa seguente schiacciando semplicemente RETURN se non 
c’è niente da cambiare. Poi, come nel primo caso, il calcolatore ridise- 

r a l'istogramma corretto. 

un modo rapido per avere una vista d’insieme sulle vostre spese; e 
avrete forse delle sorprese!! 
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1 ? ^ 


_: 

0(10) = 

TD-DT | 

_ 5 

c _ 

/ Disegnare / 
/ Cistogramma f 

_ 5 

t 

Visualizzare le 
dieci spese e 
loro percentuali 

> 

i _ 

Visus 
lei 
torme 
in ve 

Ili! 
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© - 

10 REM BILANCIO FAMILIARE 

20 REM - 

30 DATA TASSE,AFFITTO,MACCHINA,VACANZE,ABBIOLIAMENTO, 

NUTRIMENTO 

40 DATA FESTE,DIVERTIMENTI,ASSICURAZIONE,VARIE 
50 FOR I-l TO 10 
60 READ N*<I> 

70 NEXT I 

80 REM - 

90 REM 8CELTA SPESE 
100 PRINTTT 

110 INPUT "TOTALE SPESE"JTD 
120 MAX- 0 : DT—0 
130 PRINT : PRINT : PRINT 
140 FOR 1-1 TO 9 
130 PRINT N*<I>; 

160 INPUT D<I) 

170 IF D<I><MRX THEN 190 
180 MRX-D<I) 

190 DT-DT+D<I> 

200 IF DT<-TD THEN 230 

210 PRINT-TOTALE > ALLE SPESE” 

220 TD-DT 
230 NEXT I 
240 DO0)-TD-DT 

230 IF D<10»MAX THEN MAX-D<10> 

260 FOR 1-1 TO 10 

270 PO>-INT<<DO>/<MAX/100>>a.l3> 

280 NEXT I 

380 REM- 

390 REM ISTOORAMMR 
400 PRINT'Ut" ; 

410 FOR 1-15 TO 1 STEP -1 
420 IF 1-13 THEN 440 
430 PRINT” I"; 

440 FOR J-l TO 10 

430 IF POXI AND I-i AND 90)00 THEN PRINT* :OOTO 400 

460 IF POXI THEN PRINT" "j :OOTO 400 

470 PRINT " ";CHR*<18>;" ";CHR*<146>i 

480 NEXT J 

490 IF ICS THEN 320 

300 IF 1-13 THEN PRINT" SPESE X"J <0OTO 320 

310 PRINT " ";N*<13-I>;*!";TAB<33>;INT<DO3-I>ATD/'100>>; 

320 PRINT 

330 NEXT I 

340 FOR 1-1 TO 24:PRINT—; : NEXT SPRINT 
350 FOR 1-1 TO 8 
360 PRINT" "i 
370 FOR J-l TO 10 

380 PRINT MID*<N0O>«-" *,I,l)i" "J 

390 NEXT J 
600 PRINT 
610 NEXT I 

620 OET A* : IF A*-"" THEN 620 
630 OOTO 100 
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IL PROGRAMMA 

Dalla riga 30 alla 70: inizializzazione 

Si pongono nella tabella N$( ) le motivazioni delle spese. Queste ultime 
sono messe nei DATA delle righe 30 e 40, all'utilizzatore è possibile 
modificarle con altre spese se non ha una macchina o se non va mai in 
vacanza. 

Dalla riga 100 alla 280: scelta delle spese 

La variabile MAX tiene in memoria il valore della più grande spesa ef¬ 
fettuata. Servirà come riferimento neH’istogramma. 

La variabile DT tiene la somma totale delle 9 spese. Le spese varie sa¬ 
ranno allora la differenza tra il totale delle spese (quello che esce real¬ 
mente dal vostro portafoglio) e la somma delle altre 9 spese. 

Nel caso in cui DT sia superiore a TD, si modifica TD per riaggiustar¬ 
la; le spese varie diventano necessariamente nulle. 

Ad ogni scelta si calcola anche una percentuale per dare un’idea del 
valore che si è immesso nel calcolatore. 

Dalla riga 400 alla 630: Istogramma 

Le righe dalla 400 alla 530 stampano l’ascissa e l'istogramma. Per i va¬ 
lori superiori a 5 si stampano anche le percentuali di ogni spesa (dalla 
riga 490 alla 510). 

L'ordinata e il nome delle spese sono stampati dalla riga 540 alla 600. 
Quando si schiaccia un tasto si toma alla riga 100 per una nuova scel¬ 
ta o per la modifica degli ultimi dati. 
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Lavagna magica 


Lasciate che lo spirito creativo dei vostri figli si esprima sul Commo¬ 
dore 64. Ecco una lavagna magica che vi assicurerà un’ora di calma. 
Per disegnare, si sposta il punto bianco con le 4 frecce della tastiera. 
Se si vuole cambiare colore, basta schiacciare il tasto C per far appari¬ 
re la freccia in basso allo schermo e spostarla schiacciando su un ta¬ 
sto qualsiasi fino al colore desiderato. 

Oliando la vostra scelta è definitiva, schiacciate sul tasto RETURN per 
tornare alla lavagna magica. 

La manipolazione molto semplice di questa lavagna permette di ottene¬ 
re stupendi disegni. 


1 I I I I LI I U I I I I LI I I I 111 I I I 0 
■ 1 1 111111111 1 111111111 1 11 e 

HI 11 11111 n i i i i i i i i i i i i i 0 

LIJIlMUJllflIJIll jlll 4 

I I I I I ■ I I ——LU 4 

II ILI ■■limi «111 UHI) 4 
I I 11 I i». 11 ■ 11 11 I I I I I ■ I I 4 
I 111 11 11 MJ-I ■ I I 111 I ■ 11 4 


wmmmmmmmmmmmmum 299 

LLLLULIIJB. IIM1IILI 1111 4 

iiiiimiimiimiiiiimui 4 
III 11 ■ 1.1 ■ I I ■ Il I I I ■ I LI 4 


min 

wssam 111111111 

±1 l LI 7 

unii 

i il 11111111111 

1111J 0 

inni 

11111111111111 

lllll 0 

inni 

11111111111111 

1 LI LI 0 

min 

il i il il .. 

lllll 0 

mm 

i » 111 » 111 » » 111 

ULULI 8 


0 0 
0 0 
0 0 
292 0 
4 0 

127 292 
68 4 

68 4 

68 4 

299 299 
68 8 
68 8 
68 8 
68 8 
71 248 

192 0 
0 0 
8 0 
0 0 
0 0 
0 0 
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10 REM LRVRONR MAGICA 

20 REM --- -- - ■ 

30 PRINTVT 

40 FOR 1-1024 TO 1983 

30 POKE 1,160 

60 NEXT I 

70 FOR 1-0 TO 13 

80 POKE 36223+1,1:POKE 36263+1,1 

90 NEXT I 

100 X-19 : V—11 ! C-1 ; POKE 1934,81 

110 REM - 

120 REM SPOSTAMENTI 

130 POKE 1024+X+V040,01 :POKE 33296+X+V*40,C+l 
148 OET n*=IF R*-"“ THEN 140 
130 1F R*«"C" THEN 260 

160 POKE 1024+X+V«40,160:POKE 33296+X+V*40,C 
170 IF R*-CHR#<137> RND X>0 THEN X-X-l:QOTO 220 
180 IF R*-CHR*<29> RND X<39 THEN X-X+l:OOTO 220 
190 IF R*-CHR*<17> RND V<22 THEN V-V+l:OOTO 220 
200 IF RS-CHR*<143> RND V>0 THEN V-V-l:OOTO 220 
210 GOTO 130 
220 POKE 33296+X+V*40,C 
230 OOTO 130 

240 REM - 

230 REM COLORI 

260 POKE 1993+C,30 : POKE 1933+C,160 

270 OET R*:IF R*-"“ THEN 270 

280 IF R*«CHR*'13> THEN 320 

290 POKE l993+C,32 

380 C-C+l : IF 013 THEN C-0 

310 OOTO 260 

320 POKE 1993+C, 32•'POKE 1933+C, 81 
330 OOTO 130 
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IL PROGRAMMA 

Dalla riga 30 alla 170: inizializzazione 

Si pongono in tutti i caratteri dello schermo i codici 160, cioè bianchi 
in inversione video (ciclo FOR/NEXT dalla riga 40 alla 60). 

Il valore delle variabili X e Y danno le coordinate del punto di parten¬ 
za e C il colore in corso. 

Dalla riga 130 alla 230: spostamento del cursore 

Questa parte del programma testa la tastiera e sposta il cursore sullo 
schermo lasciando dietro di sé una traccia del colore scelto. 

Dalla riga 260 alla 330: colori 

Dopo che l’utilizzatore ha schiacciato il tasto C, si sposta la freccia in 
basso allo schermo per scegliere un nuovo colore. 

Si toma al programma di spostamento quando si schiaccia sul tasto 
RETURN (codice 13), e si stampa un punto di riferimento sul colore 
che è stato scelto (riga 320). 
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NOME DEL PROGRAMMA 


LAVAGNA MAGICA 


IDENTIFICAZIONE delle VARIABILI 


/ORIGINE/ 

rZ7TJ 
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Calendario 


Come indica il titolo, questo programma permette di ottenere sullo 
schermo un calendario completo ai un anno del ventesimo secolo. 

In effetti, dopo aver schiacciato il tasto RUN, il calcolatore domanda 
l’anno del calendario che voi volete. 

Quest'anno deve essere inserito solo con le sue due ultime cifre. Es.: 
immettere 84 per 1984; questo limita le richieste da 0 a 99, cioè degli 
anni dal 1900 al 1999. 

Il calcolatore stampa il calendario mese per mese quando si schiaccia 
un tasto. Precisa, a sinistra e a destra di ogni mese, il numero di gior¬ 
ni trascorsi e non ancora trascorsi. 

Gettate uno sguardo discreto verso il 1990 o il 1999! 
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&& - 

10 REM CALENDARIO 

20 REM - 

30 DIM MS(12>,N(12) 

40 DATA GENNAIO,31,FEBBRAIO,28,MARZO,31 

50 DATA APRILE,30,MAGGIO .31,GIUONO,30,LUOLIO»31,HOO8TO,31 
60 DATA 8ETTEMBRE,30,OTTOBRE,31,NOVEMBRE,30,DICEMBRE,31 
70 FOR 1-1 TO 12 
80 READ M*<I>,N<I> 

90 NEXT I 

100 REM - 

110 REM CALCOLO 01ORNO 
190 J-0 : B-0 
200 PRINTT]" 

210 INPUT “ANNO "iU 

220 IF U>99 THEN 200 

230 M-<U*365>«-INT<<U-1V4> 

240 IF U-0 THEN M—0 

230 V—H- < 7* I NT < M/7 > ) ♦ 1 

260 IF INT<U/4)-U/4 THEN B-l 

280 REM - 

29A REM STAMPA 
300 FOR 1-1 TO 12 
310 NJ-N<I> 

320 IF 1-2 AND B-l THEN NJ-29 
330 PRINTTr 

330 PRINT " “,J;M#<I);U;363+B-J 

360 PRINT 1 PRINT 

370 PRINT" L M M 0 V S D" 

380 PRINT:PRINT:PRINT 

400 FOR K-l TO NJ 

403 K*-RIGHT*<3TR*<K>.2> 

410 PRINT TAB<<V-1>*3+3>,K*; 

420 V-V+l 

430 IF V—8 THEN V-l:PRINT:PRINT 
460 NEXT K 
470 J-J+NJ 

488 GET A*:IF A*-”" THEN 480 
490 NEXT I 
500 GOTO 190 





IL PROGRAMMA 

Dalla riga 30 alla 90: inizializzazione 
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Dopo il dimensionamento delle tabelle M$ e N, queste sono riempite 
con la lista dei nomi dei mesi dell'anno e il numero di giorni per mese. 

Dalla riga 190 alla 260: calcolo del giorno della settimana 

Si sceglie l'anno del calendario nella variabile U. Questa variabile è al¬ 
lora utilizzata per conoscere il numero del giorno della settimana del 
primo gennaio di quell’anno (lunedì = 1, martedì = 2, ecc.). 

Nella riga 260, si guarda se si tratta di un anno bisestile; se è il caso, 
si mette la variabile Bai. 

Dalla riga 300 alla 500: visualizzazione del calendario 

Per ogni mese dell'anno, si estrae dalla tabella N il numero di giorni 
per mese (variabile NG). 

Se si tratta del mese di febbraio (1=2), si verifica il contenuto della va¬ 
riabile B (anno bisestile). Se è il caso, si pone 29 nella variabile NG 
al posto di 28 come è indicato nella tabella N( ). 

La riga 350 stampa il ninnerò di giorni trascorsi (variabile G), il nome 
del mese (tabella M$), l'anno studiato (variabile U) e il numero di gior¬ 
ni restanti (365 + B — G). 

La variabile Y fornisce la posizione del giorno seguente, stampa il nu¬ 
mero di questo giorno utilizzando l'istruzione TAB(Y). 

Quando Y = 8 (l’ottavo giorno della settimana!), si riporta questa va¬ 
riabile a 1, e così di seguito. 

La riga 470 incrementa il numero di giorni trascorsi dal numero di 
giorni che si sono stampati. 
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DATA 

NOME DEL PROGRAMMA CALENDARIO 

PAGINA 

/ 

IDENTIFICAZIONE delle VARIABILI 



VARIABILE 


SCAMBIO 


INDICE 


CONTATORE 


INDICE 


VARIABILE 


TABELLA 


VARIABILE 


TABELLA 


VARIABILE 


VARIABILE 


CONTATORE 



Carattere scelto da GET 


Se B = 1, c'è un anno bisestile 





Valore sotto forma di stringa di K 


Lista dei mesi e numero di giorni 
per mese _ 


Utilizzata per il calcolo del giorno 
della settimana 


Numero di giorni per mese 


Numero di giorni per mese 


Anno da studiare 
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Morse 


Al lancio del programma vi è proposto un menù: 

1 ALFABETO 1 

2 MESSAGGIO 2 

3 LIVELLO 3 


Scegliete un’opzione schiacciando il numero. 

Alfabeto: ascoltate lo scorrimento sonoro di tutto l’alfabeto in co¬ 

dice morse; poi il programma torna al menù. 

Messaggio: inserite il vostro messaggio, poi, schiacciando su RE¬ 

TURN, l’otterrete in codice morse. Poi potete sia richie¬ 
dere un messaggio, sia schiacciare RETURN per tornare 
al menù. 

Se siete già un buon ■pianista' potete proporre a una 
terza persona di inserire un messaggio che voi tradurre¬ 
te ascoltandolo in codice morse. 


Livello: definite un livello di rapidità tra 1 (il più lento) e 10 (il 

più veloce). Il Commodore 64 conserverà questo ritmo fi¬ 
no a quando voi non decidete di modificarlo. 

Se, alla partenza del programma, non lo precisate, reste¬ 
rà da solo al livello 5. 


»— MORSE —* 

1 RLFR8ET0 1 

2 MESSRQOIO 1 

3 LIVELLO 3 
LIVELLO RTTURLE : 3 

LR TUR 8CELTR ? 1 
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- 

te REM «ORSE 

20 REM - 

30 ftt -1 '»■ ■ «">"• “«■ 
40 A*-R*+"-. .—. 


t••••••• 

“• "i ■ • • • 


60 POKE 34296,13=POKE 34277,4 

70 POKE 34278,120:POKE 34273,64 :POKE 34272,188 

80 RE« - 

98 REM MENU 

100 PRINTTJ";TflB<12>; MORSE — : PRINT:PRINT 
110 PRXNT TAB< 12>;"1 ALFABETO 1" ! PRINT ! PRINT 
120 PRINT TAB<12>;-2 MESSAGGIO 1*:PRINT:PRINT 
130 PRINT TAB<12>;"3 LIVELLO 3":PRINT:PRINT 
140 PRINT TAB<10>;"LIVELLO ATTUALE:";N>PRINT:PRINT 
130 INPUT" LA TUA SCELTA ";M 

160 IF M<1 OR W>3 THEN 100 
170 ON H GOTO 300,600,700 

180 REM - 

190 REM 8 TAMPA IL MESSAGGIO 
200 FOR 1-1 TO LEN<»> 

210 P-R8C<MIW<M*,I,1>> 

220 IF P032 THEN 230 
230 FOR J-l TO 1000 : NEXT J 
240 OOTO 380 

250 IF P<63 OR P>90 THEN 380 
260 P-P-63 

270 FOR K-<P*4>41 TO <P*4>44 

280 IF MID*<A*,K,1>-" " THEN 370 

290 IF MID*<A*,K,THEN 330 

300 POKE 34276,63 

310 FOR J-l TO 200/N:NEXT J 

320 POKE 34276,16:GOTO 350 

330 POKE 34276,63 

340 FOR J-l TO 800/N : NEXT J 

330 POKE 34276,16 

360 FOR J-l TO 30-NEXT J 

370 NEXT K 

380 FOR J-l TO 800/N:NEXT J 
390 NEXT I 
400 RETURN 

480 REM- 

490 REM ALFABETO 

300 M*-"ABCDEFGHIJKLMN0PQR8TUVWXV2" 

310 GOSUB 200 
320 GOTO 100 

380 REM - 

390 REM MESSAGGIO 
600 PRINT-3" 

610 M*-"“: INPUT “MESSAGGIO";» 

620 IF M*-"“ THEN 100 
630 GOSUB 208 
640 GOTO 600 

680 REM - 

690 REM LIVELLO 
700 PRINT-3" 

710 INPUT"LIVELLO";N 

720 IF N<1 OR N>10 THEN 700 

730 GOTO 100 


M 
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IL PROGRAMMA 

Dalla riga 30 alla 170: inizializzazione e menù 

Si pone in A$ la lista di codici morse per tutto l’alfabeto. Ogni codice 
deve prendere 4 caratteri; dei bianchi sono aggiunti per i codici che ne 
comprendono solo uno, due o tre punti o linee. 

Le righe 60 e 70 inizializzano i registri del circuito suono del Commo¬ 
dore 64. ..... 

Poi si sceglie alla tastiera l’opzione desiderata. Nel caso in cui il carat¬ 
tere schiacciato sia superiore a 3, si toma alla scelta. 

Dalla riga 200 alla 400: visualizzazione del messaggio M$ 

Si visualizzano in codice morse con dei beep sonori i caratteri conte¬ 
nuti nella variabile M$. Ogni carattere è preso separatamente (ciclo I) 
e ritrascritto in morse (ciclo K). 

Dalla riga 500 alla 520: alfabeto 

Si pone in M$ l'alfabeto e lo si interpreta con il sottoprogramma delle 
righe dalla 200 alla 400. 

Dalla riga 600 alla 640: messaggio utilizzatore 

L’utilizzatore scrive alla tastiera il suo messaggio nella variabile M$. È 
interpretato, come l’alfabeto, dal sottoprogramma 200. 

Dalla riga 700 alla 730: livello di rapidità 

Si sceglie nella variabile N il livello di gioco. Questa variabile è utiliz¬ 
zata per l'emissione dei beep sonori nei cicli di temporeggiamento del 
sottoprogramma Messaggio. 
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DATA NOME DEL PROGRAMMA MORSE pagina 

IDENTIFICAZIONE delle VARIABILI 

/4 

$/ 

p/ / TIPO 

A 

'ORIGINE/ 

wi 

Ai J i 

VARIABILE 


X 




Usta del codici morse 

. 1 1 l 








I, 

INDICE 


X 




Ciclo FOR/NEXT 

i i i 








J 

INDICE 


X 




Odo FOR/NEXT 

i 1 1 








«. . 

INDICE 


X 




Odo FOR/NEXT 

1 i l 









VARIABILE 

X 





Messaggio da emettere 

-LI 1 








w, , 

VARIABILE 

X 





Uvello di rapidità 

--L- 1 1 








p, , , 

VARIABILE 


X 




Puntatore di lista dei codici morse 

1 1 1 

• 







01, , 

VARIABILE 

X 





Scelta dell'utilizzatore 

1 1 1 








1 ■ ■ 
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